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000000 
000000 



. TITLE TSKSTl 

. ENABL LC 

. DSABL OBL 

. CSECT TSKSTl 
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TSKSTl: 



TSKSTl is the portion of TSKMON that contains the code 
to implement the SET command. 

Copyright 1978.. 1979. 1980. 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989. 
S&H Computer Systems, Inc, 
Nashville, Tennessee 



flacro c o J. ± B 

. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 



CSISPC, . TTOUTR, . SRESET 
READW, . TTYIN, . TTYOUT. . PURGE 
CSIGEN, . SAVEST, . REOPEN 
OTLIN, . GTIM, . DATE, . SPFUN 
PRINT, , CLOSE, . LOOKUP 
WRITW, . ENILR, . EXIT 
SERR, . HEHR, . FPROT, . GVAL, 



VAL, . DGTAT 



Glchtil definitions 



. GLOBL TSKSTl, CMDHD, CMDOFF, KDOCIN, SKPSPC, UCLCMD 
GLOBL DORUN, CMDFRM, CMDDSN, STLGCN, DATTIM, PRGALL 
. GLOBL DLCEMT, ALCDEV, CMDSHO, CMDSET, CMDWHO, CMDMEM, CMDUSE 

Global references 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



LSWl 1, *PWKEY, SETCL, SETHST, DVFLAG, DX*NST, TM*MRS 
SC*SUC, SC*WRN, SC*ERR, SC*SEV, SC*FTL, SC*UNC, SC*NON 
SETPRC, SETT FY, STVRFY, STNOVR, PO*SYS, RCLREV, PA*FLG, PA*DTS 
PA*GRC, PA*UKC, PA*DSC, PA*BLD, PA*ULN, PA*DWD, PA*HQL, PALLET 
EM*PTA, EM*PTU, SBPSUF, CHKCLU, EM*CLX, PA*BEL, EM*OPR, PA*NWD 

CL*XLN, CKCLUS, ACRSTR, R50KMN, SJEMT, RJEMT 

PEKSI2, TM*NNR, CDBUF, CDGET, TM*IN1, TM*IN2 

ACRTXT, JPWDEV, JPWTYP, UPWFLG 

EM*WC2, EM*WC3, EM*WCM, P2*CGR 
CXTRMN, R*CHN, R*XCHN, CHNSIZ, C. USED, CL*EPN, CL*EPS, CLEOFS 
EDMALD, EM^STL, EM*IST, CLSFEP, EM*IDR, VPRIDF, SETWRD 
CLRPRV, OPTLST, PFSO, PFCO, PVNPW, PO*SPV, PRIVSO, PRVOPT 
TM*PVA, TM*PVC, PRIVAO, EM*CNO, EM$CPO, EM«CAP, RSTPRV 
CHKEQ, CKACOJ, PO«aPR, CKSYPV, P2*TRM, PRIVC2, PO*NAM, EM«NPR 
INSTBL, INGADR, INGEMT, IIBUF, II$NAM, IlfFLG, II**SZ, EM«NAD 
INSTBN, AF«SCA, AF*NOW, AF*MEM, PO*DBG, PRIVCO, PRVLST 
ABRTAD, ABRTCD, CINFLG, *VNOTT, II*PRV, II*NPV 



SCNOPS, TMfXBK, 
PEKEMT,PEKADR, 
SYPSWD, EM*SPL, 
EM*WCO, EM$WC1, 



TM*RD1, TM*RD2, 



RC*EXC, RC*AGE 

RC*LEN, RC*PVT, RCBBAS, RCBEND 

LP*SPD, LP*PAR 



TM*LCL, TM*GBL, SPACE 1 , RC*OWN, RC*CNT 
RC*AEP, RC*USE, RC*FLG, RC*GBL, RC*NAM 
RC**SZ, SHRRCB, SHRRCN 
EM*ICL, PROSLT, RC*LCG 



LP*ODD, LP*7BT, 
EMfNPD, EM«TI N. FM*CIP, EM*NSF, EM*IUN, EM*CLN 
EM*ILN, EM*ACL, EM*TSL, EM*CLB, EM$NSL, EM*SLT, EM*SLW 

EM«UIO, TM*PR1, TM*PR2, TM*LPR, TM*HPR 



SLKDON, SLKDOF, 
TM*HPE, TM*CNG, 



TM*CDS, TM*CEN, TRMHDl, TRMHD2, AT*D£V 
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OPRTXT, CLLINE, LCLTXT, REMTXT, TM*AUT, CLFREE, CLUNIT 
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GLOBL TM*CL0, TM$CL1.. TM$CL2, TM«CL3, TM*CL4.- TM*CL5, TM$GL6 

GLOBL QHDMSl, QHDMS2, DVSHHl, DVSHH2, DVSHH3, 3VASHD, DKASHD 

GLOBL TMfNAD, ALCHDl- ALCHD2, TM*NSD, TM«SDN. LNAME 

GLOBL CORUSR, LSW, «CTRLO/ SERFLG, lOABFL, *CHACT, «STSNG 

GLOBL LSTHL, LCLUNT, FSTIOL. LSTIOL, CL*LIX, CW*PRO, C0NFG2 

GLOBL CL«RQH, CL«WGH, MAXALC, ALCTBL, ALCEND 

GLOBL AD*DVU, AD* JOB. AD**S2, UC I DEF, HANCHN 

GLOBL NEDCHR, LOUTIR, LINIR, LINRTS. CLOTIR 

GLOBL CO*DEF, CL*COL. LCDTYP, SOPALC, SOPDAT> SOPTIM 

GLOBL UTRPAD, JSWLOC, ERRLOC, MAXMEM, MAXPRI 

GLOBL USRSTK, ^KINIT, CFSTK, MXJMEM, DFJMEM, EM«HNI 

GLOBL SPUBUF, SXBPNT, MXJADR 

GLOBL TMTOTH, TMTOTL, TMUSRH, TMIOWH, LDMNT, EM*CSE 

GLOBL TMSWTH, TMIDLH, TMIOH. TMSWPH, LDCLEN 

GLOBL WILDFL> *NOIN, *NOWTT, «HITTY 

GLOBL TECO, EDIT, KED. K52, «1STLG, *DIBOL 

GLOBL SH*VAL, SH*NAM, SH«*SZ, SH*RTN, SH*FLG 

GLOBL SO*NVL, SD^OCT, SO*NO> HANENT, HANSI2 

GLOBL H. CSR, H. VEC, DVSTAT, SFID, ACRSPD, HANPAR, LSTSPL 

GLOBL HAZEL. HAZLFL, HAZLNO. *MLOCK, MDT. GETKCH 

GLOBL LINBUF, LINNXT. LSTACT, PRGTOP, PRGSI2, KMNHI 

GLOBL KliNTOP, KMNPGS. KMNSTK, KMNSTRi CXTPAG, FBI lOL 

GLOBL LINPNT. LIIMCNT, LACTIV, LRDTIM, CS*RON 

GLOBL LOTBUF> LOTNXT, LDTPNT, *VTESC 

GLOBL LOTSIZ> LOTGPC, LCOL, «SLKED, ESC, VDBFLG 

GLOBL LAFSIZ, LFWLIM, L INCUR- NUMON, ILSW2 

GLOBL «DBKMN 

GLOBL *CARUP, DOASGN, UKMNAM, «UKMON, LSW9 

GLOBL LSUCF, *CCLRN, VLDSYS. EM*NUK, S*QMIO 

GLOBL KL3CLR, *PRGLK, LSW5, PVON, S*SPND, *AUTO 

GLOBL S*TWFN> S*TTFN. S«OTFN, S*IOFN. S*OTLO 

GLOBL LSTDL, FSTDL, *DETCH. UMSYTP, S*TTSC 

GLOBL *DISCN, LPROJ, LPROG, LUNAME, S*RT. S*LOW 

GLOBL LCPUHI, LCPULO. LCONTM, *CTRLS, *SPLJB, TXTCL 

GLOBL STPFLG, TOTON, USPLCH, SPLCHN, S*HICP 

GLOBL S*INWT. S*OTWT. S*TMWT, S*SFWT, S9600 

GLOBL S*MSWT, CFBUF, CFEND, CCLSAV, KMNCHN 

GLOBL MINTIM, LSECPT. MAXSEC, *EMTTR, VCSHNB 

GLOBL OKFILE, OKFEND. *CLTST, UCISPC, MHNSIZ 

GLOBL CASTBR, CASCBR. CASTBW> CASCUP, MHNSMS 

GLOBL CASTRO, CASTWO, CLTOTL, CO«DTR, CLSFSP 

GLOBL CO*CR, CO*FF. CO*FFO, CO*LC, CO*TAB, CO*CTL 

GLOBL CO*LFI , CO*LFO, CO*BNI , CO*BNO, CL*OPT 

GLOBL CL*LEN, CL*SKP, CL*WID, CL*LIN, PHYMEM 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, VI MAGE 

GLOBL USTART, GENTOP, BOTDEV, BOTUNI, CSHALC 

GLOBL *CTRLC, LSW2, i^INKMN, CHAIN, UFORM 

GLOBL *SGQO, *SG<33, LITIME 

GLOBL MAXASN, *CFABT, INDSTA, INDERR 

GLOBL RUNDEV. LNBLKS, CXTBAS, CX TWOS, UHIMEM 

GLOBL *DILUP, CSHDEV, CSHDVN, LNSBLK 

GLOBL LSW3, LSW2S, *DUPRN 

GLOBL *FORM, *TAB, LSCCA, $CFSOT, LOFSPC, RSOCOM 

GLOBL *PAGE, $SCOPE, «ECHO, *LC, *8BIT, CHKALC 

GLOBL UCHAN, «FORMO, *CFALL, *CFDCC, *CFCCL 

GLOBL LNPRIM, LNMAP, CW*50H, CONFIG, *SUCF 

GLOBL *DOOFF, NUCHN, LRBFIL, CFIND, TALEMT 
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GLOEL 
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CD*NAM, CD*DVU, CD*BAS, CD* JOB, CB**SZ, CD**UB 

LTSCMD, LNSPAC, CFNEST, UCLNAM 

*CFOPN, CFSEND, PBFEND, CFSP, *TTGAG 

UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

SDFLAG, SD*FLK, SD*WFM, SDFORM, *UCLRN 

SDBUFl, SDBLK. NSPLDV, LD*RON, «UCLCIi, *UCLCL 

LDNAME, LDSIZE, LDFLAG, LDBASE, LDPDEV 

LSWS, *SGQ1, $SGQ1A, *SGQ1B> *SGQ1C, $SGQ2, *SGIIO, SSGHIO 

*DEFER, CFCHAN> SCHAIN, LDDEVX, *SGALL 

CFPNT. CFBLK, *QUIET, DIABFL 

DIABNO, VT52N0/ LA36N0, LA36FL 

LSW4, KL4CLR, SDSKIP, SDBU, SD*BAK 

*INC0R, *KED, VQUWIB, VINTIO, VQUNIC 

SF*BSY, SFFORM, SD*SNG, SFNMBL, NFRESB 

SD*HLD, SFUHLD, CURPRM, PRMPNT, SF*1ST 

LSTPRM, PRMBUF> PRMEND, CFSPND 

SDFHD, SFFLAG, SFQLNKi CFHOLD, LOGDVU, LOGBAS 

LCOL, *QTSET, $TECO, CD$TOP, LOGCHK 

*WILD, ERRSEV, UERSEV, PASLIN, LOGBAS, LOGDVU 

LSTPL, SDCB, SDCBND, VQUANO, VQUAN3 

VQUANl, VQUNIA, VQUAN2, VHIPCT, VQUANO, VQUAN3 

DCTRD, DCCRD, DCTWR, DCCWR, ASNSRC 

VCORTM, NUMDCD, VNUMDC, KMPRMT, MXPRMT 

RDB, RDBEND, RHiNAM, RT**SZ, CLDEVX, bDDVU 

SDNAME> SDCBS2. LSTSL, LSTATE 

TKIVAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

BASMAP, LOilAP, HIMAP, JCXPGS 

SMRSIZ, SRTSIZ, CSHSIZ, TKISEC 

TSXLN, TSXSIT, GRTl, TRGRET. LICTXT, SUPCOD, NAMTOP, SUMS, SUCS 

LPRGl, LPRG2, S*QUSR, S«IOWT, S*SFWT 

S*SPDB, S*SPCB, SFUSER, SFFILE, VT200, VT2007, VT200S 

LCBIT, LA36, LA120, VT52, VTIOO, DIABLO, QUME 

ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

VTIOFL, VTIONO, QUMEFL, QUMENO, ADM3FL 

VT20FL, VT20N0 

ADM3N0, SYINDX, SYUNIT, NUMDEV, PNAME 

OF*DEV, OF*UNT, 0F*FIL, 0F*FLG, SYNAME 

OF**SZ, OT*RON, RESDEV, *TAPE 

KMNBAS, ODTBAS.- *CTRLD 

LSW6, *SNWTT, PF*SYS, PF*IOW, *DEBUG 

RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR, MXCSR 

*INDDF, *INDRN. IN*ACT, IN*CNT, IN*CMD, INDSAV 

*PHONE, INVEC, LMXLN, MXVEC, *INIT, *DEAD, *HARD 

ITRMTP, LMXPRM, LSW7, *INDAB, CFSTS, CF*IND, CF*aUT 

CFABLV, MONVEC, LBSPRI, MAXPRI, MXJPRI, LPRI, *SYSPS 

LOGCHN, LOGFLG, LOGPTR, LOGBUF, LOGBLK, LF*IN, LF*OUT 

LF*OPN, LF*WRT, UCLBLK, UCLDAT 

CSHHD, FC*CDX, FC*LNK, FD*NAM, UC*NDC, UC*MDC, CVTUC 

CMDBUF, PAUMSG, RDCMD, DKSAV, SYSAV, CVTTAB, RUNHD, SEARCH 

INVOPT, FKILL, ABRTCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

PUSHCF, TRMSTR, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

INDACT, R50DUP. R50PIP, R50KED, R50K52, R50KEX, R50TSX, R50UCL 

BLKO, RDERM, R50V.IR, NOSTRT, RUNEMT, DVRCOR 

BADSAV, LDNAM, NOPRG, NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

ASDEX, KCSIMS, ASNOVF, GTRD50, R50BUF, R50LD0, MNTDEV, DMTARG 

DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTDPHD, INVOPT, ILLCMD 
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R5QLD, INVLDN, R50DSK< ACRFIL.- BDFNAM. LOGASN, MNTFUL, R50LD7 

TBLOVF, SETHD, CSIMS2, CKPRIV, R50N0> AMBOPT, ACRDEC 

MAXAVL. PRTDEC> DEVUNT, PNAME, HNBUF> CKTERM 

ACROCT, HANBSY> CSIMSl, MISSEQ, NOIND, POPCF 

BADPMT, BADPRI. TOTXT, CRLF, HIPRI, STLGHD, LOGCLS, R50L0G 

BDLGOP, SPLHLA, NOCCL, LDOPHD, PRTFIX, PRTSPC 

DLTXT, OCTFIX, PRTTTP, NATXT, SPDTXl, NOTXT, YESTXT, NINTXT 

PRTUNM, SYHDl, SYHD2, PRTLN, SPACE2, DETTXT, SPACES, RNMS 

SWPTX, LDCKTX, SPACES, PRTDC3, KBMSG, DIVIDE, PRTDC2 

COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

NOUDC, DEVHDl, ASNHDl, ASNHD2, SHMTHl, SHHTH2, PRTTMD 

CVDVNM, SPACE6, PRTBUF, PRTFNM, NONEMS, NODAT, NOLDMT 

SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGS, MNBPC 

DELSPC, MNBASE, MNTOP, MONHD, MONARl , NOPMGN, PMBUSY, M0NAR2 

NSWPMS, liAXMTX, CURMTX, CHKDLM, SPLHD, AMBDPT, INVOPT 

DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NODPTT 

BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG 

LINFRE, DJABMS, DLMSG, INVTIM, DMTALL 

SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, RILEMT, UPTMMS 

TMTOTH, DIVSOR, TMTOTL, PRTPCT, SUMl, SUM2, SUMS, SUM4 

SUMS, SUM6, SUM7, OTHRON, SPLPND, STPASK, SRTSMS, CHKTTD 

SIZEMT, ASNOVF, INVLDM, CSIMS4, MNTARG, HUPARG, R50TT 

KMNNAM, NOKMON, CCLNAM, OTRMNT, CHKDEV, DMTSUB. CMDCCL 

SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS, SSRMAP 

TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

DETHD, DETARG, RUNMS, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

AR*PRJ, AR*PRG, AR*CON, AR*CNT, AR*CPH, AR*CPL, AR*UNM 

AR*DMY, AR**SZ, ARNRPB, *SLON, *SLTTY, «SLLET 

PRTWRN, SLMXLN, VSLEDT, *LOFCF, CSHMSG 

AF*HIE, AF*N01, *NOINT, AF*PLK, AF*DBG, DS*DIR 

AF*IOP, *RNIOP, VOFFTM, VONTM, VTMOUT, VTMIN, VTMLOC, VUSPHN 
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4 


000012 


5 


000015 


6 


000040 


7 


000007 


S 


000011 


9 


000014 


10 


000054 


11 


000400 


12 


132500 



LF 

CR 

BLANK 

BELL 

TAB 

FF 

COMMA 

BLKWDS 

WLDNAM 



12 

15 

40 

07 

11 

14 

54 

256. 

132500 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

COMMA 

# OF WORDS IN DISK BLOCK 

RAD50 /*/ (WILDCARD) 
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Macro to cause a fatal error message to be printed. 

. MACRO FERR MBO 

MOV R5, -<SP) 

MOV MSGi R5 

CALL FPRINT 

MOV (SP)+, R5 

. ENDM FERR 



Macro to print a fatal error message* clean up 
and then jump to RDCMD. 

. MACRO FABORT MSG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a warning message 

. MACRO FWARN MSG 

MOV R5, -<SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+. R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 

. MACRO TBLDEF NAME, NA 

NAROS = NA 

. CSECT CMDVSl 

NAME'HD: .WORD 2*NA 

. ENDM TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG = Ascii name 

A, B, C == Set of option parameters to store in table with name. 

. MACRO CMDDEF STRNG> A, B, C 
. CSECT NAMESl 



IIP 
IIF 



. ASCIZ /STRNG/ 
. CSECT CMDVSl 
. WORD L 
. WORD A 
GE, <NARGS~2> 
GE, <NARGS-3> 
. ENDM CMDDEF 



WORD 
WORD 



; POINTER TO NAME STRING 



B 
C 



i 

* 
I 

i 
i 
f 

i 
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59 j Macro to end a set of table entries. 

60 ; 

61 . MACRO TBLEND 

62 . CBECT CMDVSl 

63 . WORD 

64 . CSECT TSKSTl 

65 . ENDM TBLEND 
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000042 
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000052 
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000062 
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000072 
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19 


000122 
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000132 


21 


000142 


22 


000152 


23 


000162 


24 


000172 


25 


000202 


26 


000212 


27 


000222 


28 


000232 


29 


000242 


30 


000252 


31 


000262 


32 


000272 


33 


000302 


34 


000312 


35 


000322 


36 


000332 


37 


000342 


38 


000352 


39 


000362 


40 


000372 


41 


000402 


42 


000412 


43 


000422 


44 


000432 


45 


000442 


46 


000452 


47 


000462 


48 


000472 


49 


000502 


50 


000512 


51 


000522 


52 


000532 


53 


000542 


54 


000552 


55 


000562 


56 


000572 


57 


000602 



> Define options for the SET command. 

i 

; Table of "device" names for the SET command and a 

> pointer to a set of sub-options for the device. 



TBLDEF SET, 3 

CMDDEF CA#CHE, STCHNB, O, 

CMDDEF CC«L, SET3UB, CCLHD, 

CMDDEF CO*RTIM> SETSVL, VCORTM, 10000. 

CMDDEF CTRLD, SETSUB, CTDHD. O 

CMDDEF ED*IT, SETSUB, EDI THD,0 

CMDDEF EM*T, SETSUB, EMTHD, 

CMDDEF ENDS«TARTUP, SETESU, O, 

CMDDEF ER*ROR, SETSUB, ERRHD, O 

CMDDEF EX* IT, RDCMD, 0, 

CMDDEF HIP«RCT, SETSVL, VHIPCT, 10000. 

CMDDEF HO*ST, SETHST, 0, 

CMDDEF IND, SETSUB, INDHD, 

CMDDEF INT#IOC, SETSVL, VINTIO, 10000. 

CMDDEF IO»ABORT, SETPRV, lOABHD, O 

CMDDEF KMO*N, SETSUB. KMDNHD, O 

CMDDEF LANiJ-GUAOE, SETSUB, LANGHD, 

CMDDEF LOG, SETLOG, 0, O 

CMDDEF LOGO-HFF, SETLOF, 0, 

CMDDEF MAX«PRIORITY, SETMPR,0, 

CMDDEF NUM«DC, SETNDC, NUMDCD, O 

CMDDEF OFF#TIM, SETSVL, VOFFTM, 10000. 

CMDDEF ONT#IM, SETSVL, VONTM, 10000. 

CMDDEF PHO#NE, SETSVB, VUSPHN, 1 

CMDDEF PROC*ESS, SETPRC, 0, 

CMDDEF PROM«PT, SETPRT, 0, 

CMDDEF PR I *0R I T Y, SETPR 1,0,0 

CMDDEF PRINTS*CREEN, SETPRS, 0, 

CMDDEF PRINTW*INDOW, SETPRS, 0, 

CMDDEF QUANO, SETSVL, VQUANO, 10000. 

CMDDEF QUANl, SETSVL, VQUANl, 10000. 

CMDDEF QUANIA, SETSVL, VQUNIA, 10000. 

CMDDEF QUANIB, SETSVL, VQUNIB, 10000. 

CMDDEF QUANIC, SETSVL, VQUNIC, 10000. 

CMDDEF QUAN2, SETSVL. VQUAN2, 10000. 

CMDDEF QUAN3, SETSVL, VQUAN3, 10000. 

CMDDEF REC#ALL, SETREC, O, 

CMDDEF SHUT*DOWN, SETSHT, O, 

CMDDEF NOSHUT*DDWN, SETNSH, 0, 

CMDDEF SIG#NAL, SETSUB, SIGHD, 

CMDDEF SL, SETSL, 0, O 

CMDDEF SUB#PROCESS, SETSBP, 0, 

CMDDEF SYSP*ASSWORD, SETSYP, O, 

CMDDEF SYSP#WD, SETSYP, 0, 

CMDDEF TE*RMINAL, SETTTY, 0, 

CMDDEF TT#Y, SETTTY, 0, 

CMDDEF TIMI*N, SETSVL, VTMIN, 10000. 

CMDDEF TIML#OC, SETSVL, VTMLOC, 10000. 

CMDDEF TIMO»UT, SETSVL, VTMOUT, 10000. 

CMDDEF UC#L, SETSUB, UCLHD, 



I 
I 
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5S 000612 CMDDEF US*R, RDCHD, 0, O 

59 000622 CMDDEF VERBIFY, STVRFY, 0, < 

60 000632 CMDDEF NOVER#IFY, STNOVR, 0, 

61 000642 CMDDEF WI*LDCARDS, SETSUB, WILDHD, 

62 000652 CMDDEF WIN*DOWS, SETWIN, 0, • 

63 000662 CMDDEF WINP*RT, SETPRS, 0, O 

64 000672 TBLEND 

* 
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i 
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Define options for SET EDIT command 

TBLDEF EDIT. 3 

CMDDEF ED#IT, SEEDIT, 

CHDDEF KED, SEKED, 

CMDDEF K52, SEK52, 

CMDDEF T*ECO, SETECO, 
TBLEND 

Define options for SET ERROR command 

Ti3LDEF ERR. 2 

CMDDEF W#ARNING, 3ETSEV, SC*WRN 

CMDDEF E-tt-RROR. SETSEV, SC*ERR 

CMDDEF S#EVERE> SETSEV, SC$SEV 

CMDDEF F#ATAL, SETSEV. SC*FTL 

CMDDEF U*NCONDITIONAL, SETSEVi SC*UNC 

CMDDEF N#ONE, SETSEV> SC^NON 

TBLEND 

Define options for SET WILDCARDS command 

TBLDEF WILD, 3 

CMDDEF IM«-PLICIT. SETBIT, LSW5, «WILD 

CMDDEF EXttPLICIT, CLRBIT, LSW5, «WILD 

TBLEND 

Define options for the Sl?T KMQN command 

TBLDEF KMON, 3 

CMDDEF IND, SETIND, LSW5, *INDDF 

CMDDEF NOI*ND, RSTIND, LSW5, *INDDF 

CMDDEF SY#STEM, CLRBIT, LSW7, *UKMON 

CMDDEF UC I , SETUKM, 0, 

CMDDEF USE*R, SETUKM, 0. O 

CMDDEF NEW, SETKNW, 0, 

CMDDEF DEBUG, SE TB IT, LSW9, *DBKMN 

CMDDEF NODEBUG, CLRBIT, LSW9, *DBKMN 

TBLEND 

Define options for the SET CCL command 

TBLDEF CCL, 3 

CMDDEF T*EST, SETB IT, LSW5, $CLTST 

CMDDEF NOT*EST, CLRBIT, LSW5, *CLTST 

CMDDEF NEW, SETCNW, 0, 

TBLEND 

Define options for the SET UCL command 

TBLDEF UCL, 3 

CMDDEF F#IRST, STUCLF, LSW7, *UCLCF 

CMDDEF M«IDDLE, STUCLM, LSW7, *UCLCM 

CMDDEF L«AST, STUCLL, L3W7, *UCLCL 

CMDDEF N*ONE, STUCLN, LSW7, 

TBLEND 
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Define options for the SET IND command 

TBLDEF IND, 3 

CMDDEF AB*ORT. SETS IT, LSW7, *INDAB 

CMDDEF NOA*BORT, CLRBIT, LSW7, *INDAB 

TBLEND 

Define options for the SET LD command 

TBLDEF LDOP, 1 

CMDDEF CL#EAN, SLDCLN 

CMDDEF EMF*TY. SLDEMP 

CMDDEF FR#EE, SLDFRE 

CMDDEF WR*ITE, SLDWRT 

CMDDEF NOWR#ITE, SLDNWR 
TBLEND 

Define options for the SET SL command 



CMDDEF AS*K, SLONOH 

CMDDEF KED, SLOKED 

CMDDEF K52, SLOKED 

CMDDEF KEX, SLOKED 

CMDDEF NOKED, SLORT 

CMDDEF LEA#RN, SLDUNI 

CMDDEF NOLEA«RN, SLONOP 

CMDDEF LET, SLOLET 

CMDDEF NOLET, SLONLT 

CMDDEF OF»F, SLOOFF 

CMDDEF ON, SLOON 

CMDDEF KM*ON, SLOON 

CMDDEF RT* 11, SLORT 

CMDDEF SUB*STITUTE, SLOLET 

CMDDEF NOSUB*STITUTE, SLONLT 

CMDDEF SYS»GEN, SLONOP 

CMDDEF TT*YIN, SLDTTY 

CMDDEF NOTT*YIN, SLONTT 

CMDDEF WID*TH, SLOWID 

CMDDEF REC*ALL, SLONOP 

CMDDEF NOREC*ALL, SLONOP 
TBLEND 

Define options for the SET RECALL 

TBLDEF RCL, 1 

CMDDEF N*ORMAL, 

CMDDEF R*EVERSE, 1 
TBLEND 

Define options for the SET WINDOW command 

TBLDEF WIN, 2 

CMDDEF COL-»UMNS, WINCOL, O 

CMDDEF DA«RK, WINBIT, WFNORM 

CMDDEF DEL»ETE, WINBIT, WFDEL 
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GMDDEF L I *0H is wi NB i T,- wFREv 

CMDDEF NAR*ROW. wINBIT, WF80 

GMDDEF NOR*MAL, WINBIT, WFNORM 

CMDDEF OFF, WINBIT. WFDEL 

CMDDEF ON, WINBIT, 

CMDDEF RE V*ERSE, W I NB I T, WFREV 

CMDDEF SCR*OLL, WINSCR, 

CMDDEF NOSCR*OLL, WINNOS 

CMDDEF wI#DE, WINBIT, WF132 
TBLEND 

Define options for the SET PRINTWINDOW command 

TBLDEF PRS, 1 

CMDDEF BEL«L, PRSBEL. 

CMDDEF NOBEL*L, PRSNBL 

CMDDEF DEV*ICE, PRSDEV 

CMDDEF DR#AFT, PRSDRF 

CMDDEF FL*AG, PRSFLG 

CMDDEF NOFL#AG, PRSiMFL 

CMDDEF KEY*PRINT, PRSKEY 

CMDDEF NOKEY*PR.INT, PRSNKY 

CMDDEF LET#TERQUALITY, PRSLET 

CMDDEF ST*AMP,PRSSfM 

CMDDEF NOST*AMP, PRSNST 

CMDDEF TY-*PE, PRSTYP 

CMDDEF WID*TH, PRSWID 

CMDDEF NOWID^TH, PRSNWD 
TBLEND 

Printer types for SET PRINTWINDOW/TYPE=ty pe 



TBLDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
TBLEND 



AS*CII,0, O 

FOR*EIGN, 0, O 

PRINT-K-RDNIX, 0, 

SIM*PLE, O. O 

ST*ANDARD, 0, 

LA36, O, 

LA 120, 0,0 

LA 1 00, 1 , P A*GRC ! P A*UKC ! P A*ULN ! P A*HQL ! P A«DWD 

LA 1 2, 1 , P A*GRC ! P A*UKC ! P A*BLD ! P A*ULN ! PA*HQL ! PA*DWD 

LA50, 1 , PA*GRC ! PA*UKC f PA*DSC ! PA«BLD • PA*ULN ! PA*HQL ! PA*DWD 

LA21 0, 1 , PA*GRC i PA»UKC ! PA*DSC ! PA*BLD ! PA*ULN ! PA*HQL i PA*DWD 

LQP02, 1,PA*BLD!PA*ULN 

LQP03, 1,PA^BLD!PA*ULN 

LN03, 1 , PA*GRC ! PA*BLD ! P A*ULN f PA*DWD 



Define options for the BET LANGUAGE command 

TBLDEF LANG, 3 

CMDDEF DI#BOL, SETBIT, LSW6, *DIBOL 

CMDDEF DBL, CLRBIT,LSW6. *DIB0L 

TBLEND 

Define options for the SET EMT command 
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TBLDEF EMT, 3 

CMDDEF TR*ACE, SETEMT. LSW6, *EMTTR 

CMDDEF NOTR*ACE, CLRBIT, LSW6, *EMTTR 

TBLEND 

Define options for the SET lOABORT command 

TBLDEF I DAB. 3 

CMDDEF AB#ORT, STRWRD; lOABFL, 1 

CMDDEF NOAB»DRT, STRWRD, lOABFL. 

TBLEND 

Define options for the SET SIONAL command 

TBLDEF SIG, 3 

CMDDEF H*IPRCT. SETBIT, LSWS, *SGHIO 

CMDDEF NOH#IPRCT, CLRBIT, LSW8> *SGHIO 

CMDDEF I«NTIDC. SETBIT, LSW8, *SGIIO 

CMDDEF NOI*NTIOC, CLRBIT, LSWS, *SGIIO 

CMDDEF QUANO, SETB IT, LSWS, *SGQO 

CMDDEF NOGUANO, CLRB I T, LSWS, *SGQO 

CMDDEF QUAN 1 , SETB I T , LSWS, *SGQ 1 

CMDDEF N0QUAN1,CLRB1T, LSWS, *SGQ1 

CMDDEF QUAN 1 A, SETBIT, LSWS, *SGG1A 

CMDDEF NOQUANIA, CLRBIT, LSWS, *SGQ1A 

CMDDEF QUANIB, SETBIT, LSWS, *SGQ1B 

CMDDEF NOQUANIB, CLRBIT, LSWS, *SGQ1B 

CMDDEF QUAN 1 C , SETB I T , LSWS, *SGQ 1 C 

CMDDEF NOQUANIC, CLRBIT, LSWS, *SGQ1C 

CMDDEF QUAN2, SETB IT, LSWS, *SGQ2 

CMDDEF N0QUAN2, CLRB I T, LSWS, *SGQ2 

CMDDEF QUAN3, SETBIT, LSWS, *SGQ3 

CMDDEF N0QUAN3, CLRBIT, LSWS, *SGQ3 

CMDDEF OFF, CLRB I T, LSWS, *SGALL 
TBLEND 

Define options for the SET LOG command 

TBLDEF STLG, 1 

CMDDEF A*LL, STLGAL 

CMDDEF CLE*AN, STLGCN 

CMDDEF CLO#SED, STLGCL 

CMDDEF FI#LE, STLGFL 

CMDDEF I«NPUT, STLGIN 

CMDDEF D*UTPUT, STLGOT 

CMDDEF WR*ITE, STLGWR 

CMDDEF NOWR*ITE, STLGNW 
TBLEND 

Define options for the SET LOGOFF command 

TBLDEF STLO, 1 

CMDDEF FI*LE, STLOFL 
TBLEND 

Define options for the SET SUBPROCESS command 



I 



€ 
I 



TSKSTl 



Keyboard SET Command MACRO V05. 05 Thursday i9-Jan-89 14:57 Page 5-4 



I 



ditC^ 



230 


000000 


231 


002426 


232 


002432 


233 




234 




235 




236 


000000 


237 


002436 


238 


002442 


239 


002446 



TBLDEF SBP. 1 

CMDDEF FI«LE, SBPFIL 
TBLEND 

Define options for the SET CTRLD command 

TBLDEF CTD, 1 

CMDDEF D#EBUG, STCDON 

CMDDEF NOD*EBUG, STCDOF 

TBLEND 
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Data BT-ma^ 



133 
150 
133 
154 
133 
150 
133 
154 



154 



126 



150 



161 

001 

020 

000000 



161 
000 



HANSAV 
R50CL0 
R50C10 
WINFLG 



BLKW 5 

RAD50 /CLO/ 

RAD50 /CIO/ 

WORD 



i Space for . SAVESTATUS 



Flags stored in WINFLG 



WFDEL 

WFREV 

WFNDRM 

WF132 

WF80 



1 

2 

4 

10 

20 



077 
200 
077 
200 
077 
200 
077 
200 



Terminal control sequences 
TCREV: -ASCII <33>/C?5h/<:200> 
TCNORM: .ASCII <33>/C?51/<200> 
TC132: .ASCII <33>/C?3h/<200> 
TC80: ASCII <33>/C?31/<200> 
. EVEN 

Emt to set line speed 

LSPEMT: . BYTE 0, 154 
. WORD 
. WORD 



Delete the uiindotu 
Put terminal in reverse video 
Put terminal in normal video mode 
Put terminal in 132 column mode 
Put terminal in 80 column mode 



Select reverse video display 
Select normal video display 
Select 132 column mode 
Select SO column mode 



Line number 
Speed code 



Emt to reinitialize data caching 

DCHNEW: . BYTE 0, 126 
. WORD 6 

Emt to set job priority 

PRIEMT: . BYTE 0, 150 
. WORD 

Emt to create window # I 

WINHAK: . BYTE O, 161 

BYTE 1, 1 

. BYTE 00. i 16. 

. WORD 0, 

Emt to map to tuindow # X 

WINMAP: .BYTE 1,161 
• BYTE 1,0 

i 

i Emt to delete uiindow # 1 
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WINDEL; . BYTE 2, 161 
BYTE 1,0 

i 

; Emt to dismount all LD ' b 

DMTALD: . BYTE 5, 135 
. WORD O 
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34 










35 










36 










37 










38 


000200 


010503 






39 


000202 


005067 


0000020 




40 


000206 


004767 


OOOOOOG 




41 


000212 


016700 


OOOOOOG 




42 


000216 


005767 


000002G 




43 


000222 


001404 






44 


000224 








45 


000234 


004767 


OOOOOOG 




46 


000240 


103404 






47 


000242 


016200 


OOOOOOG 




48 


000246 


010067 


OOOOOOG 




49 










50 










51 










52 


000252 


020067 


OOOOOOG 




53 


000256 


103410 






54 


000260 


020067 


OOOOOOG 




55 


000264 


101005 






56 


000266 


105767 


OOOOOOG 




57 


000272 


001416 





/^Y3 'T'*T"i 

Process the "SET" command. 



CMDSET: CALL 
CALL 
MOV 
CLRB 



CVTTAB 
SKPSPC 
R3, R5 
NOFLAG 



CONVERT TAB AND FF CHARS TO SPACES 
Skip up to start of device name 
SAVE COMMAND STRING POINTER 
ASSUME "NO" OPTION NOT SEEN YET 



If device name ends with a colon (e. g. 
with a space. 



"Tl:") replace the colon 



Get next char of device name 
Reached end of name? 
Br if yes 

Start of qualifiers? 
Br if yes 

Is this character colon?' 
Br if not 

Replace colon u^ith space 
8*: MOV R5* R3 ; Get back pointer to start of device name 

Look up device name and see if we recognize it as a pseudo-device 
such as TT, WILDCARD, etc. 



MOVB 


(R3)+,R0 


CMPB 


RO, #40 


BLOS 


8* 


CMPB 


RO, #'/ 


BEQ 


8$ 


CMPB 


RO. #': 


BNE 


7* 


MOVB 


#40, -(R3) 


MOV 


R5, R3 



MOV 

CALL 

BCS 



#SETHD, R4 

SEARCH 

1* 



J GET TABLE OF PSEUDO-DEVICE NAMES 

; SEARCH FDR DEVICE NAME 

; BR IF NOT A PSEUDO-DEVICE NAME 



This is a pseudo-device name. 

Jump off to appropriate processing routine. 



JMP 



e<R4)+ 



i JUMP OFF TO PROCESSING ROUTINE 



Device name is not recognized as a pseudo device. 
Apply any logical device assignment to the device name. 



1$: 



MOV 


R5, R3 


CLR 


R50BUF+2 


CALL 


GTRD50 


MOV 


R50BUF, RO 


TST 


R50BUF+2 


BEQ 


2* 



?*: 



FABORT #CSIMS2 

CALL ASNSRC 

BCS 6* 

MOV AT*DEV<R2), RO 

MOV RO, R50BUF 



POINT BACK TO DEVICE NAME 

CLEAR 2ND WORD OF RAD50 NAME 

ACCRUE RAD50 VALUE 

GET DEVICE NAME 

MAKE SURE NAME ONLY 3 CHARS LONG 

BR IF OK 

INVALID DEVICE FOR SET 

Search for device name in assign table 

Br if name was not assigned 

Get the physical device name 

Set new device name for SET 



See if this is a SET LDn command 



6*; 



CMP 


RO, R50LD 


BLO 


3* 


CMP 


RO, R50LD7 


BHI 


3* 


TSTB 


VLD3YS 


BEQ 


5$ 



SEE IF IT IS LD 

BR IF NOT 

CHECK HIGH RANGE 

BR IF NOT AN LD UNIT 

IS LD SUPPORT GENNED IN? 

BR IF NOT, maybe using an actual LD. TSX 



i 



i 
i 

€ 
t 

i 
i 
t 

< 
i 
i 
I 
C 
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38 MSJ\JeLf"e OUUXO/ UUDDO^J 

59 
60 
61 
62 

63 000300 005727 OOOOOOG 

64 000304 001411 

65 000306 004767 OOOOOOG 

66 000312 103003 

67 000314 016700 OOOOOOG 

68 000320 000403 

69 000322 010002 

70 000324 000167 OOOOOOG 
71 

72 
73 
74 

75 000330 004767 OOOOOOG 

76 000334 000167 000470 



■JiiF 



SETLD 



i GO PROCESS SET LD COMMAND 



3*: 



4*: 



See if this is a SET CLn command 

Notei that CL unit allocation is now checked only for some SET commands. 

Are there any CL lines? 

Br if not 

See if this is a CL or CI unit <unit # to RO) 

BR if it is a valid CL or CI unit 

If not. we need to get back RAD50 device name 

Try it as a "real" device 

Pass CL unit number in R2 

Process SET CL command 

See if this device is allocated to another user before trying 
to perform handler set code. 



TST 


#CLTOTL 


BEQ 


5* 


CALL 


CHKCLU 


BCC 


4* 


MOV 


R50BUF, RO 


BR 


5* 


MOV 


RO, R2 


JMP 


SETCL 



5*: 



CALL 
JMP 



CHKALC 
SETDEV 



;Check for allocation conflict 



I 

i 
f 
I 



« 
I 

i 

I 

i 
C 
€ 
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i 
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1 
n 

is. 

3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TBLEND macros. 



000340 
000344 
000346 
000350 
000354 
000356 
000360 
000364 
000366 
000372 
000374 
000400 
000402 
000404 
000406 
000412 
000420 



000422 
000424 
000430 
000432 
000434 



000436 
000440 
000444 



000446 
000450 
000452 



000454 
000456 
000460 
000470 



004767 
010246 
010546 
122327 
001401 
005303 
004767 
111300 
120027 
001403 
120027 
OOlOOl 
005203 
010302 
004767 
026767 
001005 



010305 
004767 
112325 
001376 
010203 



011404 
004767 
103403 



012605 
012602 
000134 



005704 
001407 



OOOOOOG 
000072 

OOOOOOG 

000075 
000072 



OOOOOOG 
OOOOOOG 



OOOOOOG 



MACRO V05. 05 Thursday 19-Jan-S9 14:57 Page S 



Process SET commands that have sub-options 

Inputs: 
R3 = Pointer to start of qualifier in command line. 
R4 = Points to start of command table built with TDLDEF. 

Outputs: 
R3 = Pointer beyond end of qualifier. 
R4 = Pointer to argument value word in command table. 

See if set option is preceded by "NO". 

;Mu5t have SYSPRV privilege 



WAS DEVICE NAME FOLLOWED BY COLON? 
BR IF YES 

RESET POINTER IF NOT 
SKIP OVER SPACES 
Get next character from command 
Is there an equal sign? 
Br if yes — skip over equal sign 
Colon separator?" 
Br if not 

Skip over separator 
SAVE COMMAND STRING POINTER 
ACCRUE NEXT WORD IN RAD50 FORM 
OOOOOOG CMP R50BUF, R50N0 ; IS WORD "NO"? 

BR IF NOT 

Option is preceeded by NO. Concatenate NO with following qualifier. 

GET POINTER INTO COMMAND PAST "NO" 
SKIP OVER SPACES FOLLOWING "NO" 

4*: MOVE <R3)+, <R5)+ i CONCATENATE OPTION WORD WITH "NO" 

MOVE ALL OF COMMAND 

1$: MOV R2, R3 ; GET BACK POINTER TO OPTION WORD 



SETPRV: 


CALL 


CKSYPV 


SETSUB: 


MOV 


R2, -<SP) 




MOV 


R5, -(SP) 




CMPB 


(R3)+,#': 




BEQ 


3* 




DEC 


R3 


3«: 


CALL 


SKPSPC 




MOVB 


<R3),R0 




CMPB 


RO, #' = 




BEQ 


5* 




CMPB 


RO, #': 




BNE 


6* 


5$: 


INC 


R3 


6$: 


MOV 


R3, R2 




CALL 


GTRD50 




CMP 


R50BUF, R50N0 




BNE 


1* 



MOV 


R3, R5 


CALL 


SKPSPC 


MOVB 


<R3)+, <R5) + 


BNE 


4* 


MOV 


R2, R3 



Look up the option word. 



OOOOOOG 



MOV 


@R4, R4 


CALL 


SEARCH 


BCS 


BDSO 



GET POINTER TO TABLE OF OPTIONS FOR COMMAND 
LOOK FOR THE CORRECT OPTION WORD 
BR IF INVALID OPTION 



Enter Option processing routine. 



MOV 
MOV 
JMP 



<SP>+, R5 
( SP ) +, R2 
@(R4)+ 



> Invalid option. 

i 

BDSO: TST R4 

BEQ INVSOP 

FABORT #AMBOPT 

INVLDO: . PURGE #HANCHN 



PERFORM PROCESSING FOR OPTION 



INVALID OR AMBIGUOUS OPTION? 

BR IF INVALID 

AMBIGUOUS OPTION 

MAKE SURE THE CHANNEL IS CLOSED 



I 
I 

f 
I 
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5S 000476 INV30P: FABORT #INVOFT ■ INVALID OPTION 



I 
I 
f 
I 
i 
i 
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i 
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I 
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1 . SBTTL Systei-n parameters 

Set a system parameter value. 



2 








3 








4 








5 








6 








7 








8 








9 


000506 


012746 


177777 


iO 


000512 


000401 




11 


000514 


005046 




12 


000516 


004767 


OOOOOOG 


13 








14 








15 








16 


000522 


004767 


OOOOOOG 


17 


000526 


016400 


000002 


IS 








19 








20 








21 








22 


000532 


005701 




23 


000534 


002402 




24 


000536 


020100 




25 


000540 


1 1 4 1 3 




26 


000542 


010001 




27 


000544 


010005 




28 


000546 






29 


000554 


004767 


OOOOOOG 


30 


000560 






31 


000566 


000406 




32 








33 








34 








35 


000570 


005726 




36 


000572 


001403 




37 


000574 


110174 


000000 


38 


000600 


000401 




39 


000602 


010134 




40 


000604 


000167 


OOOOOOG 


41 








42 








43 








44 


000610 


004767 


OOOOOOG 


45 








46 








47 








48 


000614 


004767 


OOOOOOG 


49 


000620 


016700 


OOOOOOG 


50 


000624 


000742 





Inputs: 
R4 Points to cell with address of parameter cell to be modified« 
folloujing word contains maximum legal value for parameter. 



SETSVB : MOV 

BR 
SETSVL: CLR 
SETSVC: CALL 



#-1, -(SP> 
SETSVC 
-(SP) 
CKSYPV 



Accrue numeric value 



CALL 
MOV 



ACRDEC 
2<R4),R0 



j Signal byte value 
j Br to common code 
> Signal word value 
;Must have SYSPRV privilege 



; ACCRUE A DECIMAL VALUE 

;GET MAX LEGAL VALUE FOR PARAMETER 



Make sure the value is valid. 

Rl = Accrued value, RO = Maximum legal value. 



SETSVV; 


TST 


Rl 




BLT 


3* 




CMP 


Rl.RO 




BLOS 


1* 


3*: 


MOV 


RO, Rl 




MOV 


RO.. R5 



.PRINT #MAXAVL 

CALL PRTDEC 

. PRINT #CRLF 

BR 4* 



CHECK FOR NEGATIVE VALUE SPECIFIED 

BR IF INVALID VALUE SPECIFIED 

IS SPECIFIED VALUE OK? 

BR IF OK 

GET MAX LEGAL VALUE 

VALUE TOO LARGE 
PRINT MAX LEGAL VALUE 
END LINE 
FINISHED 



Store value into parameter cell 



1*: 



TST 


<SP) + 


BEQ 


2* 


MOVB 


R1,@<R4) 


BR 


4* 


MOV 


R1,@<R4>+ 


JMP 


RDCMD 



2*: 
4*: 



SET NUMDC value 
SETNDC: CALL CKSYPV 
Accrue numeric value 



CALL 

MOV 

BR 



ACRDEC 
VNUMDC> RO 
SETSVV 



i Word or byte value? 

i Br if word 

; Store byte value 

i Finish 

; STORE NEW VALUE INTO PARAMETER CELL 

} FINISHED 



; Must have SYSPRV privilege 



ACCRUE A DECIMAL VALUE 

GET MAX LEGAL VALUE FOR PARAMETER 

Check and store value 



i 
I 
f 



c 
I 

r 

i 
i 
I 
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c 
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I 

I 
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J, 
2 
3 
4 
5 
6 

8 

9 

10 

11 

12 

J. .J 

14 
15 
16 

17 
18 

19 
20 
21 
22 
23 
24 

cut? 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



000626 004767 OOOOOOG 



i SET CACHE = value 
STCHNB: CALL CKSYPV 
Accrue numeric value 



000632 
000636 
000642 
000644 
000646 
000650 
000652 
000654 
000656 
000664 
000670 



OOOOOOG 
0000000 



004767 
016700 
005701 
002402 
020100 
101412 
010001 
010005 



004767 OOOOOOG 



3$; 



CALL 


ACRDEC 


MOV 


CSHALC. RO 


TST 


Rl 


BLT 


3* 


CMP 


R1,R0 


BL03 


1* 


MOV 


RO, Rl 


MOV 


RO. R5 


. PRINT 


#MAXAVL 


CALL 


PRTDEC 



. PRINT #CRLF 
Store value into parameter cell 



J Must have SYSPRV privilege 



ACCRUE A DECIMAL VALUE 

GET MAX LEGAL VALUE FOR PARAMETER 

CHECK FOR NEGATIVE VALUE SPECIFIED 

BR IF INVALID VALUE SPECIFIED 

IS SPECIFIED VALUE OK? 

an ir ur\ 

GET MAX LEGAL VALUE 

VALUE TOO LARGE 
PRINT MAX LEGAL VALUE 
END LINE 



000676 010167 OOOOOOG 



1*: MOV R1,VCSHNB 

Now clean out the data cache 



000702 
000706 
000710 



000714 
000720 
000722 
000732 
000740 
000742 
000752 
000760 
000764 
000772 



000776 
001004 
001006 
001016 
001024 



012700 
104375 
000167 



105767 
001004 

032767 
001004 

052761 
000167 
042761 
000167 



032767 
001004 

052761 
000167 



000056 ' 
OOOOOOG 

OOOOOOG 



MOV 
EMT 
JMP 



#DCHNEW, RO 

375 

RDCMD 



i STORE NEW VALUE INTO PARAMETER CELL 

; EMT to clean out the cache 
; FINISHED 



SET CTRLD CNO^DEBUG 



STCDON: TSTB 
BNE 



OOOOOOG OOOOOOG 1*: 



OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 



VDBFLG 

1* 

FABORT #EM*NPD 
BIT #PO*DBG, PRIVCO 
BNE 2* 
FABORT #EM*NAD 
B I S #*CTRLD, LSW9 < R 1 ) 



2*: 

JMP 
STCDOF: BIC 

JMP 

SET EMT TRACE 



Was debugger genned into the system? 

Br if yes 

No program debugger 

Can we use debugger? 

Br if yes 

Not allouied to use debugger 

Enable ctrl-D debugger entry 



RDCMD 

#«CTRLD, LSW9(R1); Disable ctrl-D debugger entry 

RDCMD 



SETEMT: BIT #PO*DBG, FRIVCO * Are uie aliouied to use debugger? 

BNE 1* ; Br if yes 

FABORT #EM*NAD i Not allomed to use debugger 

1*: BIS #*EMTTR,LSW6<Rl)i Enable EMT trace 

JMP RDCMD 



i 
I 
t 



i 
f 
f 
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i 
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. SBTTL 



Real device 



3 
4 
5 
6 
7 

e 

9 

10 
11 



14 
15 
16 
17 
IS 



001030 
001034 
001036 
001042 
001044 
001050 

12 001054 

13 001056 
001060 
001064 
001066 
001072 
001074 

19 001076 

20 001102 

21 001106 

22 001112 

23 001114 
24 

k'5 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 

41 001224 

42 001244 
001252 
001254 
001262 



001116 
001124 
001144 
001146 
001204 



001206 
001214 



43 
44 
45 



016701 
005000 
071027 
010146 
070027 
010167 
012601 
001407 
162701 
002450 
020127 
003045 
000402 
012701 
010167 
122327 
001401 
005303 



016767 
103420 
103007 



032767 
001007 



The device name is not a pseudo-device. 
See if it is the name of a real device. 



OOOOOOG 

000050 

000050 
OOOOOOG 

000036 
000007 



100000 
OOOOOOG 



OOOOOOG 000002G 4$: 



GET THE DEVICE NAME AND UNIT 

CLEAR HIGH ORDER REGISTER 

STRIP THE LAST RAD 50 CHARACTER 

SAVE THE UNIT NUMBER 

GET THE DEVICE NAME SHIFTED 

AND STORE BACK INTO THE RAD 50 BUFFER 

GET THE UNIT NUMBER 

BR IF NO UNIT NUMBER WAS SPECIFIED 

NORMALIZE TO ZERO 

ERROR IF LESS THAN ZERO 

CHECK UNIT RANGE 

ERROR IF GREATER THAN SEVEN 

CONTINUE 

SET NO UNIT WAS SPECIFIED FLAG 

SAVE THE UNIT SPECIFIED 

WAS DEVICE NAME FOLLOWED BY COLON? 

BR IF YES 

BACKUP POINTER 



MOV R50BUF, HNBUF+2 i SET UP HANDLER NAME 

. LOOKUP #XAREA, #HANCHN, #HNBUFi TRY TO LOOKUP HANDLER FILE 

BCS SETIVD >BR IF CAN'T FIND HANDLER 

. READW #XAREA, #HANCHN> #BLKO, #512. , #0 i READ IN 1ST 2 BLOCKS 

BCC SETCKP ; Branch if read ok 



SETDEV: MOV 


R50BUF, Rl 


CLR 


RO 


DIV 


#50, RO 


MOV 


R 1 , - < SP ) 


MUL 


#50, RO 


MOV 


Rl, R50BUF 


MOV 


<SP)+,R1 


BEQ 


2$ 


SUB 


#36, Rl 


BLT 


SETIVD 


CMP 


Rl, #7 


BGT 


SETIVD 


BR 


3* 


2*: MOV 


#100000.. Rl 


3«: MOV 


R1,DEVUNT 


CMPB 


<R3)+,#': 


BEQ 


4* 


DEC 


R3 


i Lookup the 


handler file 



Invalid device name. 

SETIVD: . PURGE #HANCHN 
FABORT #CSIMS2 



iMAKE SURE CHANNEL IS CLOSED 
i INVALID DEVICE NAME 



We are performing a set to a device handler. 
User must be privileged to do this. 



SETCKP: 



SAVEST #XAREA, #HANCHN, #HANSAV ; Save channel status in HANSAV 



OOOOOOG OOOOOOG 



BIT #PO*OPR , PR I VCO 

BNE NXTOPT 

. PURGE #HANCHN 

FABORT #EM*OPR 



Is user privileged? 

Br if yes 

Close handler channel 

Not-privileged error message 



I 

i 

i 
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4 001272 

5 001276 
6 

7 001302 
S 001304 
9 001310 

10 001314 

11 001316 

12 001322 

13 001326 

14 001330 

15 001334 

16 001340 

17 001342 
IS 

19 001344 

20 

21 

22 

23 001350 

24 001354 

25 001360 

26 001362 

27 001366 

28 001374 

29 001376 

30 001404 

31 001406 

32 001412 
33 

34 
35 

36 001414 

37 001420 

38 001424 

39 001426 
40 

41 001432 

42 001436 

43 001440 

44 001446 

45 001450 

46 001454 
47 

48 001460 

49 001466 

50 001470 

51 001474 

52 001500 

53 001502 

54 001504 

55 001510 

56 001512 

57 001520 



105067 
004767 

010302 
004767 
120027 
001012 
004767 
120027 
001005 
105267 
004767 
000401 
010203 



012704 
005764 
001002 
000167 
026764 
001004 
026764 
001403 
062704 
000760 



116402 
042702 
006302 
062702 

105767 
001410 
132764 
001002 
000167 
062702 

1 32764 
001433 
004767 
122327 
001401 
005303 
004767 
010305 
132764 
001003 



OOOOOOG 
0000000 



OOOOOOG 
000116 

OOOOOOG 
000117 

OOOOOOG 
OOOOOOG 
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; Accrue the set option word. 

NXTOPT: CLRB NOFLAG > RESET THE "NO" OPTION FLAG 

CALL SKPSPC iSKIP OVER ANY SPACES 

i Check for "NO" preceding the option word. 

SAVE COMMAND STRING POINTER 

GET NEXT COMMAND CHARACTER 

IS IT "N"? 

BR IF NOT 

CHECK NEXT CHARACTER 

IS IT "0"? 

BR IF NOT 

REMEMBER "NO" SPECIFIED 

SKIP OVER SPACES FOLLOWING "NO" 



MOV 


R3, R2 


CALL 


GETKCH 


CMPB 


RO, #'N 


BNE 


7* 


CALL 


GETKCH 


CMPB 


RO, #'0 


BNE 


7* 


INCB 


NOFLAG 


CALL 


SKPSPC 


BR 


9* 


MOV 


R2, R3 



004767 OOOOOOG 



7$: 

; Accrue the option mord 

9*: CALL GTRD50 



i RESET POINTER TO START OF OPTION WORD 
i ACCRUE AS A RAD50 VALUE 
Lookup the option word in the handler header. 



000400G 
OOOOOOG 

177102 

OOOOOOG OOOOOOG 

000002G 000002G 

OOOOOOG 



5ET0PT: 
10*; 



1 1*: 



2*: 



MOV 
TST 
BNE 
JMP 
CMP 
BNE 
CMP 
BEQ 
ADD 
BR 



#BLK0+400, R4 

SH«VAL(R4) 

11* 

INVLDO 

R50BUF, SH*NAM(R4 

2* 



POINT TO START OF HANDLER TABLE OF SET OPTIONS 
HAVE WE REACHED THE END OF THE TABLE? 
CONTINUE CHECKING 

BR IF YES — CAN'T FIND OPTION WORD 
); COMPARE NAME WITH THIS ENTRY 
BR IF MISMATCH 



R50BUF+2, SH*NAM+2<R4) 



9* 

#SH**SZ> R4 
10* 



Found entry for this option. 



OOOOOOG 
1 77400 

000400G 

OOOOOOG 

OOOOOOG OOOOOOG 

000464 
000004 



9*: 



MOVB 


SH*RTN<R4),R2 


BIC 


#-^C377> R2 


ASL 


R2 


ADD 


#BLK0+400> R2 



See if "NO" option is allowed 
TSTB NOFLAG 
BEQ 3* 



BR IF FOUND ENTRY FOR THIS OPTION 
POINT TO NEXT OPTION ENTRY 
CONTINUE SEARCH 



GET OFFSET TO ROUTINE TO CALL 
CLEAR SIGN EXTENSION 
CONVERT FROM WORD TO BYTE OFFSET 
ADD BASE ADDRESS 

WAS "NO" SPECIFIED WITH OPTION? 
BR IF NOT 



14*: 



BITB 
BNE 
JMP 
ADD 



#SO*NO, SH*FLG<R4)i IS NO ALLOWED WITH THIS OPTION? 



14* 

SETIVS 
#4, R2 



BR IF YES 

INVALID OPTION 

GET ADDRESS OF SET ROUTINE FOR NO-OPTION 



OOOOOOG OOOOOOG 3*: 

OOOOOOG 
000075 



See if option takes a numeric parameter. 



OOOOOOG 
OOOOOOG OOOOOOG 



7*: 



BITB #S0*NVL,SH*FLG<R4)i DOES OPTION REQUIRE A NUMERIC PARAMETER? 

BEQ 4* ; BR IF NOT 

CALL SKPSPC iSKIP OVER ANY SPACES 

CMPB (R3)+, #'= ; IS OPTION WORD FOLLOWED BY EQUAL SIGN? 

BEQ 7* i BR IF YES 

DEC R3 ; BACKUP POINTER 

CALL SKPSPC i SKIP OVER ANY SPACES 

MOV R3, R5 ;SAVE POINTER TO START OF NUMBER 

BITB #SO*OCT, SH*FLG<R4)i IS NUMERIC VALUE OCTAL? 

BNE 6* i BR IF YES 



I 
* 
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i 
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TSKSTl - 


— Keyboard SET 
Real device 


Command 


58 


001522 


004767 


OOOOOOG 


59 


001526 


000402 




60 


001530 


004767 


0000000 


61 


001534 


010100 




62 


001536 


020305 




63 


001540 


001002 




64 


001542 


000167 


000372 


65 


001546 


122327 


000056 


66 


001552 


001401 




67 


001554 


005303 




68 








69 








70 








71 








72 








73 


001556 


010046 




74 


001560 






75 


001566 






76 


001606 


012600 




77 








78 








79 








80 








81 








8y 








S3 


001610 


010346 




84 


001612 


016403 


OOOOOOG 


85 


001616 


016701 


OOOOOOG 


86 


001622 


000241 




87 


001624 


004712 




88 


001626 


012603 




89 


001630 


012702 


000000 


90 


001634 


103001 




91 


001636 


005202 




92 








93 








94 








95 


001640 






96 


001646 






97 


001666 






98 


001706 


005702 




99 


001710 


001113 




100 








101 








102 








103 


001712 


004767 


OOOOOOG 


104 


001716 


112300 




105 


001720 


001406 




106 


001722 


120027 


000054 


107 


001726 


001401 




108 


001730 


005303 




109 


001732 


000167 


177334 
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6$: 
5*: 



15*: 



CALL 


ACRDEC 


BR 


5* 


CALL 


ACROCT 


MOV 


R1,R0 


CMP 


R3, R5 


BNE 


15* 


JMP 


SETIVS 


CMPB 


<R3)+, # 


BEQ 


4* 


DEC 


R3 



ACCRUE A DECIMAL VALUE 

ACCRUE AN OCTAL VALUE 

GET VALUE IN RO FOR SET ROUTINE 

DID WE ACTUALLY GET A NUMBER? 

BR IF YES 

BR IF NOT 

WAS DECIMAL POINT SPECIFIED? 

BR IF YES 

BACKUP POINTER 



Open channel 17 (which is normally used for KMON overlays) to 
the handler file so that some handlers can use this channel to 
read in and updated additional blocks in the handler. 

4*: MOV RO/-<SP) i Save numeric parameter value 

.PURGE #17 ; Purge channel 17 (KMON overlay channel) 

.REOPEN #XAREA, #17, #HANSAV J Open channel 17 to handler file 
MOV (SP)+, RO ; Restore numeric parameter value 

Call routine in handler that actually does the set. 
On entry the follouiing registers are set up: 

RO = Optional numeric parameter value. 

H'3 = Fixed option value found in option word <SH*VAL) 



MOV 


R3> -<SP) 


MOV 


SH*VAL < R4 ) 


MOV 


DEVUNTi Rl 


CLC 




CALL 


@R2 


MOV 


(SP)+, R3 


MOV 


#0, R2 


BCC 


13* 


INC 


R2 



R.I 



SAVE COMMAND STRING POINTER 
GET VALUE FROM OPTION ENTRY 
GET THE DEVICE UNIT SPECIFIED 
CLEAR C-BIT BEFORE ENTERING HANDLER 
CALL SET PROCESSING ROUTINE IN HANDLER 
RECOVER COMMAND STRING POINTER 
SAY NO ERROR (DON'T AFFECT C-FLAG) 
BR IF NO ERROR OCCURRED 
SET ERROR FLAG IN R2 



Restore status of HANCHN and channel 17 



13*: 



See 



12*: 



.PURGE #17 i Purge channel 17 

.REOPEN #XAREA, #17, #KMNCHN ; Reopen channel 17 to KMON 
.REOPEN #XAREA, #HANCHN, #HANSAV ; Reopen HANCHN to handler 
TST R2 i Any error detected in handler? 

BNE SETIVS i Br if yes 



SKIP SPACES 

GET NEXT CHAR 

BR IF REACHED END 

IS COMMA THE DELIMITER? 

BR IF YES 

BACKUP STRING POINTER 

GO PROCESS THE NEXT OPTION 



f there 


are more options. 


CALL 


SKPSPC i 


MOVB 


(R3)+,R0 ; 


BEQ 


SETUP ; 


CMPB 


RO, #', i 


BEG 


12* i 


DEC 


R3 ; 


JMP 


NXTOPT i 






TSRSTl - 


— Keyboard SET 
Real device 


Command MACRO 


i 

2 








3 








4 








5 


001736 






6 


001774 






7 








8 








9 








10 


002002 


016702 


ooooooe 


11 


002006 


016700 


000002G 


12 


002012 


020062 


ooooooe 


13 


002016 


001412 




14 


002020 


162702 


000002 


15 


002024 


003372 




16 


002026 






17 


002042 


000434 




18 








19 








20 








21 








22 


002044 


032762 


ooooooe oooooo 


23 


002052 


001407 




24 


002054 






25 


002070 


000421 




26 


002072 


012700 


OOOOOOG 


27 


002076 


010260 


000004 


28 


002102 


005067 


001 0060 


29 


002106 


005067 


OOIOIOG 


30 


002112 


012760 


OOIOOOG 000006 


31 


002120 


104375 




32 


002122 


103004 




33 


002124 






34 


002134 


000167 


OOOOOOG 


35 








36 








37 








38 


002140 






39 


002146 
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Finished with all options. 

Write updated handler back to its disk file. 

SETUP: .WRITW #XAREA, #HANCHN, #BLKO, #512. , #0 
. CLOSE #HANCHN 

Now try to update the running handler in memory. 



1*: 



GET INDEX TO LAST DEVICE IN DEVICE TABLES 

Get device name 

LOOKUP DEVICE NAME 

BR IF FOUND 

MORE ENTRIES TO CHECK? 

BR IF YES 

Warn that handler is not installed 



We have located the entry for the handler. 

See if toe are allowed to change the in-memory handler image. 



MOV 


NUMDEV, R2 


MOV 


HNBUF+2, RO 


CMP 


RO.. PNAME<R2) 


BEQ 


3* 


SUB 


#2. R2 


BGT 


1* 


FWARN 


#EM*HNI 


BR 


2* 



3*: 



4*: 



?*: 



BIT 


#DX*NST, DVFLAG<R 


BEQ 


4* 


FWARN 


#TM«MRS 


BR 


2* 


MOV 


#HUPARG. RO 


MOV 


R2, 4(R0) 


CLR 


BLKO+1006 


CLR 


BLKO+1010 


MOV 


#BLK0+1000, 6(R0) 


EMT 


375 


BCC 


2* 


FAB OR T 


#HANBSY 


JMP 


RDCMD 



Invalid command 



SETIVS: . PURGE #HANCHN 
FABORT #CSIMSi 



> Br if yes 

iTell user that he must reboot the system 

POINT TO ARG BLOCK FOR UPDATE INFO 

SET DEVICE INDEX NUMBER 

Clear LQE in handler image 

Clear CQE in handler image 

SET ADDRESS OF START OF NEW HANDLER CODE 

TRY TO UPDATE RUNNING HANDLER 

BR IF SUCCESSFUL 

HANDLER WAS ACTIVE 

FINISHED 



i MAKE SURE CHANNEL IS CLOSED 






I 
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TSKSTl — Keyboard SET Command 
Real device 



2 








3 








4 








5 








6 


002156 


004767 


OOOOOOG 


7 


002162 


012405 




8 


002164 


060105 




9 


002166 


051415 




10 


002170 


000167 


ooooooe 


11 








12 








13 








14 


002174 


004767 


0000000 


15 


002200 


012405 




16 


002202 


060105 




17 


002204 


041415 




IS 


002206 


000167 


OOOOOOG 


19 








20 








21 








22 


002312 


012405 




23 


002214 


011415 




24 
2& 
26 


002216 


000167 


0000000 








27 








28 


002222 


122327 


000075 


29 


002226 


001014 




30 


002230 


122327 


000040 


31 


002234 


001775 




32 


002236 


005303 




33 


002240 


004767 


OOOOOOG 


34 


002244 


116702 


OOOOOOG 


35 


002250 


061402 




36 


002252 


110112 




37 


002254 


000167 


OOOOOOG 


38 








39 


002260 






40 








41 








42 








43 


002270 


042761 


OOOOOOC OOOOOOG 


44 


002276 


000167 


OOOOOOG 


45 








46 








47 








48 


002302 


042761 


OOOOOOG OOOOOOG 


49 


002310 


052761 


OOOOOOG OOOOOOG 


50 


002316 


000167 


OOOOOOG 


51 








52 








53 








54 


002322 






55 


002322 


042761 


OOOOOOG OOOOOOG 


56 


002330 


052761 


OOOOOOG OOOOOOG 


57 


002336 


000167 


OOOOOOG 
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Process Options which only involve setting/resetting flags. 
Set a bit in a user table 



PRVSET: CALL 

SETBIT; MOV 

ADD 

BIS 

JMP 



CKPRIV 
(R4)+, R5 
R1,R5 
@R4* SR5 
RDCMD 



i REQUIRE PRIVILEGE 

.: POINT TO TABLE 

> POINT TO TABLE ENTRY FOR THIS USER 

i SET THE DESIRED FLAG 



Reset a bit in a user table 



PRVCLR: CALL 

CLRBIT: MOV 

ADD 

BIC 

JMP 



CKPRIV 
(R4)+,R5 
R1,R5 
®R4, eR5 
RDCMD 



i REQUIRE PRIVILEGE 

i POINT TO TABLE 

J POINT TO TABLE ENTRY FOR THIS USER 

i RESET THE DESIRED FLAG 



i Rout 


ine to 


store a val 


STRWRD: 


MOV 


<R4)-+-,R5 




MOV 


(R4>, (R5) 




JMP 


RDCMD 


; Rout 


ine to 


accrue a by 


SETBYT: 


CMPB 


<R3)+,#' = 




BNE 


NOEQL 


2*: 


CMPB 


<R3)+,#' 




BEQ 


2* 




DEC 


R3 




CALL 


ACRDEC 




MOVB 


CORUSR, R2 




ADD 


€R4, R2 




MOVB 


R1.@R2 




JMP 


RDCMD 



; POINT TO WORD 

i SET VALUE IN WORD 



EQUAL SIGN SHOULD BE NEXT CHAR 

BR IF ERROR 

SKIP INTERVENING SPACES 



ACCRUE THE DECIMAL VALUE 
GET LINE INDEX # 
POINT TO LINE ENTRY IN TABLE 
STORE VALUE INTO TABLE 



NOEQL: FAB OR T #MISSEQ 
Set EDIT EDIT 



i MISSING EQUAL SIGN 



SEEDIT: BIC 
JMP 

Set EDIT TECO 

SETECO: BIC 
BIS 
JMP 



#«TECO ! *KED, LSW5 < R 1 ) 
RDCMD 



#*KED, LSW5(R1 ) 
#*TECO, LSW5(R1) 
RDCMD 



SET EDIT KED/K52 



SEK52: 






SEKED: 


BIC 


#*TECO. LSW5<R1) 




BIS 


#*KED, LSW5<R1) 




JMP 


RDCMD 



I 

4 

I 
I 
t 

i 

i 



t 
i 
( 
( 
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Real device 



58 

60 
61 
62 
63 
64 
65 
oo 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 



002342 
002350 
002356 



002362 
002370 
002376 



002402 
002410 
002416 



002422 
002430 



002434 
002440 
002442 
002450 
002470 
002472 
002476 
002522 
002526 



002536 
002544 
002564 
002566 
002572 
002616 



052761 
042761 
000167 



052761 
042761 
000167 



052761 

042761 
000167 



042761 
000167 



005767 
001432 
052761 

010002 
052702 

000167 



010002 
042702 

000167 



OOOOOOG 
OOOOOOC 
OOOOOOG 



OOOOOOG 
OOOOOOC 
OOOOOOG 



OOOOOOG 

OOOOOOC 
OOOOOOG 



OOOOOOC 
OOOOOOG 



OOOOOOG 
OOOOOOG 



i SET uCL FIRST 

STUCLF: BIS 
BIC 
JMP 



#«UCLCF. LSW7(R1); Set UCL-first flag 

#<*UCLCM!*UCLCL>, LSW7<R1) ; Clear call-middle & call-last flags 

RDCMD 



OOOOOOG 
OOOOOOG 



SET UCL MIDDLE 
STUCLM 



BIS 
BIC 
JMP 



SET UCL LAST 



#«UCLCM, LSW7(R1); Set UCL-middle flag 

#<*UCLCF!*UCLCL>, LSW7(R1) ; Clear call-first & call-last flags 

RDCMD 



OOOOOOG 
OOOOOOG 



STUCLL: 



BIS 
BIC 
JMP 



#*UCLCL. LSW7(Rl);Set UCL-last flag 
#<*UCLCFi*UCLCM>. LSW7(R1) i Clear call-first 
RDCMD 



call-middle flag 



SET UCL NONE 



OOOOOOG STUCLN; 



BIC #<:*UCLCF!*UCLCM.'«UCLCL>, LSW7(R1) i Clear all UCL-call flags 
JMP RDCMD 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



SET KMON IND 

SETIND: TST 
BEQ 
BIS 
. GVAL 
MOV 
BIS 
. PVAL 
JMP 



INDSAV i IS IND AVAILABLE? 

1* ; BR IF NOT 

#*INDDF, LSW5(Rl)iSAY WE SHOULD USE IND 

#XAREA, #<CFSTS-MONVEC> ; GET CURRENT COMMAND FILE FLAGS 

ROi R2 

#CF*IND» R2 •• SET IND FLAG 

#XAREA, #<CFSTS~MONVEC>, R2; STORE UPDATED FLAGS 

RDCMD 



1$: 

; SET 
042761 OOOOOOG OOOOOOG RSTIND: 



OOOOOOG 
OOOOOOG 



FABORT #NOIND 

KMON NO IND 

BIC #«INDDF,LSW5<R1); CLEAR IND FLAG 

. GVAL #XAREA, #<CFSTS-MONVEC> ; GET CURRENT COMMAND FILE FLAGS 

MOV RO, R2 

BIC #CF*IND, R2 ; RESET IND FLAG 

. PVAL #XAREA, #<CFSTS-MONVEC>, R2i STORE UPDATED FLAGS 

JMP RDCMD 
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TSKSTl — Keyboard SET Command 
Prompt 



1 



3 








4 








5 


002622 






6 








7 








8 








9 


002622 


004767 


OOOOOOG 


10 


002626 


012704 


OOOOOOG 


n 








12 








13 








14 


002632 


111300 




15 


002634 


120027 


000047 


16 


002640 


001403 




17 


002642 


120027 


000042 


18 


002646 


001007 




19 








20 








21 








22 


002650 


004767 


OOOOOOG 


23 


002654 


010002 




24 


002656 


001417 




25 


002660 


012703 


OOOOOOG 


26 


002664 


000403 




27 








28 








29 








30 


002666 


020302 




31 


002670 


103012 




32 


002672 


160302 




33 








34 








35 








36 


002674 


020227 


OOOOOOG 


37 


002700 


101411 




38 


002702 






39 


002716 


112724 


000056 


40 


002722 


000402 




41 








42 








43 








44 


002724 


112324 




45 


002726 


077202 




46 


002730 


112714 


000200 


47 








48 








49 








50 


002734 


000167 


OOOOOOG 
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. SBTTL Prompt- 

SET PROMPT string 

SETPRT: 

Skip any leading spaces in front of prompt string 

CALL SKPSPC 

MOV #KMPRMT, R4 ; Point to prompt holder in context block 

Determine if prompt string is enclosed in quotes 

i Get first char of prompt string 

; Is string enclosed in " ' " characters? 

i Br if yes 

i How about " " " ? 

; Br if not 



MOVE 


(R3),R0 


CMPB 


RO, #47 


BEQ 


2* 


CMPB 


RO, #42 


BNE 


3* 



String is enclosed in quotes 



2*: 



CALL 


ACRSTR 


MOV 


RO, R2 


BEQ 


6$ 


MOV 


#BLKO, R3 


BR 


10* 



; Accrue the strijig 

i Get length of the string 

i Br if string is empty 

J Point to buffer with string 



String is not enclosed in quotes 



3*: 



CMP 


R3, R2 


BHIS 


6$ 


SUB 


R3, R2 



; Anything in prompt string? 

; Br if not 

i Determine length of prompt string 



Make sure string is not too long 



10^ 


i: 


CMP 


R2, #MXPRMT 






BLOS 


5* 






FERR 


#BADPMT 


6$: 




MOVB 


#'. , <R4) + 






BR 


8* 




Set 


prompt 


string 


5*: 




MOVB 


<R3)+, (R4)-+ 






SOB 


R2, 5* 


8*: 




MOVE 


#200, (R4) 




Fini 


shed 




9*: 




JMP 


RDCMD 



i Is string too long? 
i Br if ok 

i Prompt string too long 
i Set prompt to ". " 



J Move prompt string to KMON context block 
i Terminate the prompt string 

i Go get next command 



I 

f 
f 

i 
i 
i 

i 
I 

i 

I 
€ 

( 

I 



I 
I 



TSKSTi 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



002740 004767 0000000 



00e:/44 004767 OOOOOOG 



002750 020027 000024 
002754 101404 
002756 



002766 012702 OOOOOOG 

002772 012703 0000000 

002776 112223 

003000 001376 



003002 000167 OOOOOOG 
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Sy spassuord 

. SBTTL . Syspassword 

i SET SYSPASSWORD command 

002740 SETSYP: 

User must have SYSPRV privilege 



CALL CKSYPV 
Accrue the password string 

CALL ACRTXT 

Make sure it's not too long 

CMP RO, #20. 
BLOS 1* 
FABORT #EM*SPL 



;Make sure user has SYSPRV privilege 



(Accrue the text string 



i Compare luith max legal length 

; Br if ok 

; Password string is too long 



Move passmord to password buffer 



1*: MOV 


#BLKO, R2 


MOV 


#SYPSWD> R3 


2$; MOVB 


<R2)+, <R3) 1 


BNE 


2* 


i Finished 




JMP 


RDCMD 



; Point to accrued password 
i Point to system buffer 
i Move password string 
i Loop if more to move 
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Endstartup 



i. . oB ! ! i_ . En o startup 

f '•^ ^_. _ 

J, , _ _ — ___ 

3 ; SET ENDSTARTUP command 

4 } (Siqnal end of orivileged Dortion of start-uo command file) 

5 i 

h 003006 042761 OOOOOOG OOOOOOG SETE0U: BIC #*NOIN, LSW3<R1 ) ; Allotu input to be accepted for line 
7 003014 042761 OOOOOOG OOOOOOG BIC #*SUCF, LSW9(R1 ) ; Say not in start-up command file 

t * a 003022 000167 OOOOOOG ^nP RDCMD 

I 

i 

I 
I 

• f 

> i 
f 

I 
I 
I 
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4 
I 

{ 

\ 
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Windouf 
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f 

I 
f I 



032767 



112767 
1 1 2767 
005067 



012704 

004767 



3 

4 

5 003026 

6 

7 

8 

9 003026 

■i r\ r\rsr>r\riA 

11 003036 

12 
13 
14 

15 003046 

16 003054 

17 003062 
IS 
19 
20 

21 003066 

22 003072 
23 

24 

25 

26 003076 016705 174714 

27 

28 

29 

30 003102 

31 003106 

32 003110 

33 003114 

34 003116 
35 
36 
37 

38 003120 

39 003124 

40 003126 
41 
42 
43 

44 003134 

45 003142 

46 003144 

47 003154 

48 003160 

49 003162 
50 
51 
52 

53 003164 

54 003170 
55 
56 
57 



032705 
001404 
012700 
104375 
000455 



032705 
001403 
112767 



032761 
001004 

012700 
104375 
103435 



OOOOOOG OOOOOOG 



000120 175016 
000020 175011 
174730 



001460' 
OOOOOOG 



000001 
000104' 



000010 

000204 174736 



. SBTTL . Window 

; SET WINDOW command 

SETWIN: 

User must be authorized to create global regions in order to use uiindouis 

BIT #P2*CGR, PRIVC2 i May job create global regions? 

BNE 10$ j Br if yes 

FABORT #EM«WCM ; Not privileged to do this 

Initialize some cells 



10*: MOVB #80. , WINMAK+4 

MOVB #16. , WINMAK+5 

CLR WINFLG 

Do command parsing 



MOV 

CALL 



#WINHD, R4 
SCNOPS 



; Set window width to SO columns 
i Set default max scroll lines 
* No flags yet 



iPoint to option driver list 
j Process all command options 



Now see which options were specified 



;Pick up option flags 



>Was OFF option specified? 

i Br if not 

; Delete the window 



12«: MOV WINFLG, R5 

See if OFF was specified 

BIT #WFDEL, R5 

BEQ 1* 

MOV #WINDEL, RO 

EMT 375 

BR 20* 

If WIDE option was specified, set window width to 132 columns 

1*: BIT #WF132iR5 ; Was WIDE option specified? 
BEQ 2* J Br if not 

MOVB #132. , WINMAK+4 ; Set window width to 132 columns 



Try to make the window 



OOOOOOC OOOOOOG 2*: 



BIT 



#<VT100!VT200!VT52>, LTRMTP<R1) ; VTIOO, VT200 or VT52 



000066 ' 



13«: 



BNE 13* 

FABORT #EM*SLT 

MOV #WINMAK, RO 

EMT 375 

BCS 30* 



; Br if yes 

i Invalid terminal type 

j Point to window-make arg block 

} Try to create the window 

J Br if error on window creation 



Select the window 



012700 
104375 



000100 



MOV 
EMT 



#WINMAP, RO 
375 



j EMT to map to the window 
If WIDE was specified, sc^nd string to put term in 132 col mode 



t 
I 



I 
I 



TSKSTl - 


— Keyboard SET i 


[Command 


■ 


Window 






58 


003172 


032705 


000010 


59 


003176 


001403 




60 


003200 






61 








62 








63 








64 


003206 


032705 


000020 


65 


003212 


001403 




66 


003214 






67 








68 








69 








70 


003222 


032705 


000002 


71 


003226 


001403 




72 


003230 






73 








74 








75 








76 


003236 


032705 


000004 


77 


003242 


001403 




78 


003244 






79 








SO 








81 








32 


003252 


000167 


OOOOOOG 


S3 








84 








85 








86 


003256 


1 1 3702 


OOOOOOG 


87 


003262 


020227 


000004 


88 


003266 


103401 




89 


003270 


005002 




90 


003272 


006302 




91 


003274 


016202 


003306 ' 


92 


003300 






93 








94 








95 








96 


003306 


ooooooe 




97 


003310 


OOOOOOG 




98 


003312 


OOOOOOG 




99 


003314 


OOOOOOG 




100 




000004 
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BIT #WFi32, R5 

BEQ 3* 

. PRINT #TC132 



i Was WIDE option specified? 

; Br if not 

i Put terminal in 132 column mode 



If NARROW was specified* send string to put term in 80 col mode 



3*: BIT #WF80, R5 
BEQ 4« 
. PRINT #TCeO 



iWas NARROW option specified? 

i Br if not 

; Put terminal in SO column mode 



If REVERSE was specified* put terminal in reverse video mode 



4$: 



BIT #WFREV>R5 

BEQ 5* 

. PRINT #TCREV 



;Wa3 REVERSE option specified? 

i Br if not 

.: Put terminal in reverse video mode 



If NORMAL was specified, put terminal in normal video mode 



5*: 



BIT #WFNORM, R5 

BEQ 20* 

. PRINT #TCNORM 



; Was NORMAL option specified? 

i Br if not 

j Put terminal in normal video mode 



Finished 

20*: JMP RDCMD 

> 

! Error occurred which making window 



30*: 



31*: 



MOVE 


@#ERRLOC, R2 


CMP 


R2, #MAXWEM 


BLO 


31* 


CLR 


R2 


ASL 


R2 


MOV 


WEM(R2),R2 


FABORT 


R2 



Get EMT error code 

Is it too large? 

Br if not 

Use message for error if too big 

Get word table index 

Get address of error message 

Print the error message 



Table of window-creation error messages 

WEM: . WORD EM*WCO 

. WORD EM*WC1 

. WORD EM*WC2 

. WORD EM*WC3 

MAXWEM = <. ~WEM>/2 



« 

i 

i 

< 

i 

I 

t 

i 

i 

i 

t 

€ 

I 

i 

I 

I 

I 

( 



I 

I 

I 

I 

I 

> f 

I 
c 
< 
f 

I 

f ( 
I 
c 



\ 



c 



TSKSTl — Keyboard SET Command 
Window 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
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003316 010146 



003320 004767 OOOOOOG 



003324 110167 174542 



14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003330 
003332 



012601 
000207 



003334 010146 



003336 
003342 
003346 



003350 
003354 
003360 
003362 



004767 
121327 
001005 



004767 
020127 
101402 
012701 



OOOOOOG 
000075 



OOOOOOG 
000177 

177777 



003366 110167 174501 



003372 
003374 



012601 



003376 
003402 



105067 
000207 



174471 



Process COLUHN^^n option of SET WINDOW command 
WINCOL: MOV R1,-<SP) 

Accrue the column parameter value 

CALL ACRDEC 
Store into EMT argument block 

MOVE Rl,WINMAK+4 ; Set column width in EMT arg block 
Fini shed 



MOV <SP)+, Rl 
RETURN 



Process SCR0LLC=n3 option uihich specifies the maximum number 
of scroll lines. 

WINSCR: MOV R1,-(SP> 

If no parameter is specified- allouj unlimited scrolling 



CALL SKPSPC 

CMPB <R3),#' = 

BNE 3* 

Accrue the parameter value 

1*: CALL ACRDEC 

CMP Rl,#127. 

BLOS 2* 

3*: MOV #-l,Rl 



jSkip over spaces 
; Value specified? 
* If not> alloiu unlimited 



; Accrue decimal parameter 

j; Asked for more than maxT' 

i If not, set the requested number 

jAllou) unlimited scrolling 



Store value into EMT argument block 

2*: MOVB Rl,WINMAK+5 ; Set max scroll lines 

Fini shed 

MOV <SP)+, Rl 

RETuniv 



SET WINDOW/NOSCROLL 

WINNOS: CLRB WINMAK+5 
RETURN 



;0 scroll lines -=> No scrolling 



003404 
003410 



051467 
000207 



174406 



Process a SET WINDOW option that just sets a flag bit 

iSet appropriate flag bit 



I 

i 

i 

i 
i 



€ 
i 
I 

i 
i 

< 

I 

i 



WINBIT: BIS (R4),WINFLG 
RETURN 



t 



f 
I 

I 



) 

f 

) i 



I i 



004767 



001574' 
OOOOOOQ 



000167 OOOOOOG 



21 

22 



25 

26 



TSKSTl — Keyboard SET Command 
Prirttwindouj 



3 

4 

5 003412 

6 

7 

8 

9 003412 
10 003416 
11 
12 
13 

14 003422 
15 
16 
17 

18 003426 

19 003430 

20 003436 
003442 
003446 

23 003452 

24 003454 
003456 
003464 

27 003466 

28 

29 

30 

31 003470 

32 003472 

33 003476 

34 003502 

35 003506 

36 003510 

37 003514 

38 003522 

39 003524 

40 003526 

41 003530 

42 003544 

43 003546 
44 

45 
46 

47 003562 

48 003564 
49 

50 
51 

52 003566 . 

53 003574 
54 

55 
56 
57 003576 
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. BBTTL Pririt-U-'indouj 

; SET PRINTWINDQW/DEVICE=device/TYPE=type 

i 

SETPRS: 

i 

} Process qualifiers specified with command 



MOV 
CALL 



#PRSHD, R4 
SCNOPS 



jPoint to option driver list 

; Process all of the command options 



Finished 

JMP RDCMD 
Process the /DEVICE=device qualifer 



010246 
052767 
004767 
004767 
122327 
001401 
005303 
01676/ 
012602 
000207 



010446 
004767 
012704 
004767 
103406 
111467 
016467 
000417 
005704 
001407 

000406 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
000072 



OOOOOOG OOOOOOG 1*: 



PRSDEV: MOV 
BIS 



CALL 
CALL 

CMPB 

DEC 
MOV 
MOV 
RETURN 



R2> -<SP) 

#PA*FLG, JPWFLG 

CHKEQ 

GTRD50 

(R3)+, #•': 

1« 

R3 

R50BUF, JPWDEV 

<SP)+, R2 



Default to using flag pages on new device 
Equal sign should follow qualifier name 
Accrue the device name 
Colon specified with device name7' 

Br if yes 

Backup pointer 

Store into job context cell 



OOOOOOG 
001670' 
OOOOOOG 

OOOOOOG 

000002 OOOOOOG 





Process the 


/TYPE=type qu 


PRS 


3TYP: MOV 


R4. -<SP) 




CALL 


CHKEQ 




MOV 


#PWTHD, R4 




CALL 


SEARCH 




BCS 


1* 




MOVE 


(R4), JPWTYP 




MOV 


2<R4), JPWFLG 




BR 


9* 


1*: 


TST 


R4 




BEQ 


2* 




FERR 


#EM*PTA 




BR 


9« 


2«: 


FERR 


#EM*PTU 


^ 
* 


Finished 





012604 
000207 



052767 
000207 



Make sure we have an equal sign 
Point to table of printer types 
Accrue and look up printer name 
Br if invalid printer type 
Set printer type code 
Set printer attribute flags 

; Printer unrecognized or ambigious? 
; Br if not recognized 
iPrinter type ambigious 

iPrinter type unrecognized 



9*: MOV (SP)H-, R4 
RETURN 

> 

i Process the /LETTERQUALITY qualifier 

OOOOOOG OOOOOOG PRSLET: BIS #PA*LET, JPWFLG i Set letter-quality flag 

RETURN 



Process the /DRAFT qualifier 
042767 OOOOOOG OOOOOOG PRSDRF: BIC #PA$LET, JPWFLG ; Clear letter-quality flag 



€ 

< 
4 
4 

i 
i 
I 
I 
t 

i 
< 

f 

% 

{ 

i 

( 



i 
I 

r 

I 

I 
( 
i 

• ( 
I 
c 

( 

I 

I 
( 
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5S 
59 
60 


003604 


000207 






RETURN 










; Process the 


61 












62 


003606 


052767 


OOOOOOG 


OOOOOOG 


PRSBEL: BIS 


63 


003614 


000207 






RETURN 


64 












65 










i Process the 


66 












67 


003616 


042767 


OOOOOOG 


OOOOOOG 


PRSNBL: BIC 


68 


003624 


000207 






RETURN 


69 












70 










i ProcfeSB the 


71 












72 


003626 


052767 


OOOOOOG 


OOOOOOG 


PRSFLG: BIS 


73 
74 
75 


003634 


000207 






RETURN 










i Process the 


76 












77 


003636 


042767 


OOOOOOG 


OOOOOOG 


PRSNFL: BIC 


78 


003644 


000207 






RETURN 


79 












SO 










; Process the 


81 












82 


003646 


052767 


OOOOOOG 


OOOOOOG 


PRSSTM: BIS 


83 


003654 


000207 






RETURN 


84 












85 










i Process the 


86 












87 


003656 


042767 


OOOOOOG 


OOOOOOG 


PRSNST: BIC 


88 


003664 


000207 






RETURN 


89 












90 










J Process the 


91 












92 


003666 


042767 


OOOOOOG 


OOOOOOG 


PRSWID: BIC 


93 


003674 


000207 






RETURN 


94 












95 










i Process the 


96 












97 


003676 


052767 


OOOOOOG 


OOOOOOG 


PRSNWD: BIS 


98 


003704 


000207 






RETURN 


99 












100 










; Process the 


101 












102 


003706 


116701 


OOOOOOG 




PRSKEY; MOVB 


103 


003712 


052761 


OOOOOOG 


OOOOOOG 


BIS 


104 


003720 


000207 






RETURN 


105 












106 










> Process the 


107 












108 


003722 


116701 


OOOOOOG 




PRSNKY: MOVB 


109 


003726 


042761 


OOOOOOG 


OOOOOOG 


BIC 


110 


003734 


000207 






RETURN 



/BELL qual ifit>r 
#PA*BEL, JPWFLG ; Set bell flag 

/NOBELL qualifier 
#PA*BEL, JPWFLG ; CI ear bell flag 

/FLAG qua i i f i er 
#PA*FLG, vJPWFLG 5 Set flagpage flag 

/NOFLAG qualifier 
#PA*FLG> JPWFLG i Clear flagpage flag 

/STAMP qualifier 
#PAfDTS. JPWFLG ; Set date/time stamp flag 

/NOSTAMP qualifier 
#PA*DTSj JPWFLG ; Clear date/time stamp flag 

/WIDTH qualifier 
#PA*NWD, JPWFLG ; Clear nowidth flag 

/NOWIDTH qualifier 
#PA*NWD. JPWFLG i Set nowidth flag 

/KEYPRINT qualifier 

C0RUSR*R1 i Get job index number 
#«PWKEY, LSWIKRI) i Set KEYPRINT flag 

/NDKEYPRINT qualifier 

CORUSR/Rl i Get job index number 
#*PWKEY,LSW11<R1) ; Clear KEYPRINT flag 



I 
I 

c 

f 

( 
I 



€ 
I 
€ 

i 

i 
I 

< 
I 
t 

i 



f 
i 

\ i 
i 
I 
I 
I 

f < 
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Priority 

i . SBTTL Priorrit.ii 



3 
4 

5 


003736 


004767 


0000000 


6 


003742 


020127 


0000000 


7 


003746 


101425 




S 


003750 






9 


003764 


012705 


000000 


10 


003770 


004767 


OOOOOOG 


11 


003774 






12 


004002 


116705 


OOOOOOG 


13 


004006 


004767 


OOOOOOS 


14 


004012 






15 


004020 


000427 




16 


004022 


120167 


0000000 


17 


004026 


101417 




IS 


004030 






19 


004044 


116705 


0000000 


20 


004050 


004767 


OOOOOOG 


21 


004054 






22 


004062 


U6701 


OOOOOOG 


23 


004066 


012700 


000062 ' 


24 


004072 


010160 


000002 


25 


004076 


10437b 




26 


004100 


000167 


OOOOOOG 



i SET 


PRIORITY 


value 


SETPRI: 


CALL 


ACRDEC 




CMP 


Rl> #MAXPRI 




BLOS 


3* 


5*: 


FERR 


#BADPRI 




MOV 


#0, R5 




CALL 


PRTDEC 




. PRINT 


#TOTXT 




MOVE 


MXJPRI>R5 




CALL 


PRTDEC 




. PRINT 


#CRLF 




BR 


9* 


3*: 


CMPB 


Rl, MXJPRI 




BLOS 


2* 




FERR 


#HIPRI 




MOVE 


MXJPRI, R5 




CALL 


PRTDEC 




. PRINT 


#CRLF 




MOVE 


MXJPRI, Ri 


2*: 


MOV 


#PRIEMT, RO 




MOV 


Rl, 2(R0) 




EMT 


375 


9*: 


JMP 


RDCMD 



iAccrue decimal value 
i Is priority too large? 
; Br if ok 

; Invalid priority value 
i Print minimum priority 

; Print " to " 

i Print maximum priority 

jEnd print line 

> Does it exceed max allowed for job? 

i Br if ok 

i Priority is too high 

; Get max allowed value 

^Display max priority 

f Get max allowed for job 

; Point to EMT arg block to set job priority 

i Store prio value into EMf arg block 

; Set job pri or ity 

i Go get next command 



i 
I 

r 



I 
i 
i 
i 
I 
i 
i 
f 
I 

€ 



C 



TSKSTl 



-- Keyboard SET 
Maxpr iori ty 



3 
4 
5 
6 
7 
8 



14 

15 
16 
17 
IS 

19 
20 

21 

22 
23 
24 

25 



004104 
004110 
004114 
004116 



11 004140 

12 004146 



004156 
004164 
004170 
004174 
004176 
004206 
004212 
004216 
004222 
004224 
004230 
004234 
004236 



004767 
020127 
101425 

005000 
004767 

012705 

004767 

116701 
120167 

101404 

110167 
1 1 6702 
126201 
101405 
012700 
010160 
104375 
000167 
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. 3BTTL . 
SET MAXPRIORITY value 



naspr i ority 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

000062 ' 
000002 

OOOOOOG 



SETi^lPR : 



1«; 



?f : 



3$: 



CALL 

CMP 

BLOS 

FERR 

CLR 

CALL 

. PRINT 

MOV 

CALL 

. PRINT 

MOVE 

CMPB 

BLOS 

FAB OR T 

MOVE 

MOVE 

CMPB 

BLOS 

MOV 

MOV 

EMT 

JMP 



ACRDEC 

Rl, #MAXPRI 

1* 

#BADPRI 

RO 

PRTDEC 

#TOTXT 

#MAXPRI,R5 

PRTDEC 

#CRLF 

VPRIDF, Rl 

R1,MXJPRI 

2* 

#EM*CIP 

Rl, MXJPRi 

CORUSR, R2 

LBSPRKR2), 

3* 

#PRIEMT. RO 

Rl, 2(RO) 

375 

RDCMD 



Rl 



Accrue decimal value 
Larger than max allowed? 
Br if ok 

Invalid priority value 
Get minimum value 
Print minimum value 
Print ■' to " 
Get maximum value 
i P r i n t it 

Set to default value 

Is he attempting to increase the max pri 

Br if not 

Cannot increase maxpri 

Set maximum job priority 

Get current job index number 

Is current priority too highT' 

Br if ok 

Point to EMT arg block to set prio 

Set new priority for job 

i Finished 



*? 



I 
I 
I 
f 
i 

f 

€ 
i 

< 
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I 

I 

< 

i 
t 
I 

C 
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Error 



. SBTTL 



c.~ T"' I'uT"' 



3 
4 

5 004242 

6 004246 

7 004250 
S 004254 

10 004304 
11 

12 

-t n 

14 
15 

16 004310 

17 004314 
IS 004322 
19 004326 
20 

21 

23 

24 004332 
iiJb U04:j36 
26 004342 



111467 
111404 
042704 
052704 



0000000 

1 77400 
001400 



000167 0000000 



ROUTINE TO SET ERROR SEVERITY ABORT LEVEL 



SETSEV: MOVB 


@R4, ERRSEV 


MOVB 


€R4, R4 


BIC 


#177400, R4 


BIS 


#3*400, R4 


. PVAL 


#XAREA, #<C 


•JMP 


RDCMD 


. SBTTL 


Sh 



;SET ERROR SEVERITY FOR USER 

; GET ERROR SEVERITY LEVEL 

; CLEAR HIGH ORDER BYTE 

; SET COMMAND FILE NESTING DEPTH 



IN SIMUL RMON 



Shutdown 
Set the flag that says a system shutdown is being done. 



004767 OOOOOOG SETSHT: CALL 

112767 177777 OOOOOOG MOVE 

005067 OOOOOOG CLR 

000167 OOOOOOG JMP 



CKPRIV 
#-l,STPFLG 
BOTDEV 
RDCMD 



j User must have privilege 

i Say system shutdown taking place 

j Reboot from sustem disk 



Clear the flag that say& a shutdown is taking place. 



004767 OOOOOOG 
10506/ OOOOOOG 
000167 OOOOOOG 



SETNSH; CALL 
CLRB 
JMP 



CKPRIV 
STPFLG 
RDCMD 



A User must have privilege 

.; Say we are not doing a shutdown 



) I 



TSKSTl — Keyboard 
Log 
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3 
4 
5 
6 
7 
8 
9 

1 A 

J. "W 

11 

12 
13 
14 
15 
16 
17 
IB 
17 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004346 



004346 
004352 
004356 



004362 
004366 



004370 
004372 
004400 
004402 
004410 
004414 
004420 
004424 
004430 
004434 
004436 
004442 
004446 
004452 
004454 
004460 



004464 
004472 



004474 
004502 



004504 
004512 
004520 



004522 
004530 



004767 
000207 



010346 
032767 
001427 
012767 
005067 
012703 
016700 
062700 
020327 
103404 
162703 
062700 
070327 
060003 
005063 
012603 
000207 



052767 
000207 



. ai3 I ! !_ 



002350 ' 
004767 OOOOOOG 
000167 OOOOOOG 



Log 
Process the SET LOO command. 
SETLOG: 

Accrue option keyword 

MOV #STLGHD, R4 
JMP RDCMD 



OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000021 

000021 

OOOOOOG 

OOOOOOG 

OOOOOOG 



i SET 


LOG CLOSE 


STLGCL: 


CALL 
RETURN 


LOGCLS 


i SET 


LOG CLEAN 


STLGCN: 


MOV 


R3, -<SP) 




BIT 


#LF*OPN, LOGFLG 




BEG 


9* 




MOV 


#LOGBUF, LOGPTR 




CLR 


LOOBLK 




MOV 


#LOGCHN, R3 




MOV 


CXTRMN>RO 




ADD 


#R*CHN, RO 




CMP 


R3, #17. 




BLO 


1$ 




SUB 


#17. ,R3 




ADD 


#R*XCHN-R*CHN, RO 


i*: 


MUL 


#CHNSIZ,R3 




ADD 


RO, R3 




CLR 


C. USED<R3> 


9$: 


MOV 


<SP)+, R3 




RETURN 





jPoint to keyword table 

.: Process command qualifiers 

^Finished with command 



jClose the log file 



Is the log file open nou7' 

Br if not 

Reset buffer pointer 

Start writing at block O 

Get channel # used for log file 

Point to simulated RMON area 

Point to channel block for channel O 

Is this channel in extended chan area7 

Br if not 

Get channel # relative to extended channels 

Point to 1st extended channel block 

Get offset to block of interest 

Point to our channel block 

Say no data has been written to file 



SET LOG WRITE 



OOOOOOG OOOOOOG STLGWR: 



BIS 
RETURN 



#LF*WRT, LOGFLG ; Enable writes to log file 



SET LOG NOWRITE 



vcn/Q/ OOOOOOG OOOOOOG 3TL0NW: BIC #LF$WRT, LOGFLG 
000207 RETURN 



G /Disable loq file 



SET LOG INPUl 



042767 OOOOOOG OOOOOOG STLGIN: BIC 
052767 OOOOOOG OOOOOOG BIS 

000207 RETURN 



#LF*OUT> LOGFLG 
#LF* IN, LOGFLG 



; Clear output-logging flag 
i Set input-logging flag 



SET LOG OUTPUT 



042767 OOOOOOG OOOOOOG STLGOT: BIC 
052767 OOOOOOG OOOOOOG BIS 



#LF*IN, LOGFLG i Clear input-logging flag 
#LF«OUT, LOGFLG .; Set output-logging flag 



I 
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f 

I 
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i 
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I 
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60 i SET LOG ALL 

61 ; 

62 004540 052767 OOOOOOC OOOOOOG STLGAL: BIS #LF*IN ! LF*OUT. LOOFLG i Log both input and output 

63 004546 000207 RETURN 



i 
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I 
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004574 
004600 
004604 

004610 



004612 
0046 1 6 



004622 012767 



-og 



3 

4 004550 

5 004552 

6 004554 

7 004560 

8 004564 

9 004570 

11 
12 

■I O 

14 
15 
16 
17 
18 
19 
20 
21 
22 

tz.u3 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004630 
004642 
004650 
004652 
004656 



004660 
004664 
004670 



004672 
004720 
004722 



004732 
004736 
004742 
004744 
004750 
004752 
004756 
004762 
004766 
004770 



010446 
010546 
004767 
004767 
122327 
001401 
005303 



012704 
012705 
004767 
103514 



012705 
004767 



032767 
001403 
005767 
001471 



016700 
004767 

103464 



103004 



016705 
O04767 
103421 
020467 
001407 
1 1 0467 
110067 
005067 
000407 
006300 






FILE— f" i le — spec 



OOOOOOG 
OOOOOOG 

000075 



: MOV 


R4, -(SP) 


MOV 


R5. -<SP) 


CALL 


LOGCLS 


CALL 


SKPSPC 


CMPB 


<R3)+,#' 


BEQ 


1* 


DEC 


R3 



Accrue the file spec 



OOOOOOG 

000001 

OOOOOOG 



If: 



MOV 


#R50L0G,R4 


MOV 


#1.. R5 


CALL 


ACRFIL 


BCS 


10* 



iClose current log file 

iSkip over spaces 

; See if equal sign was specified 

/Br if yes (skip over it) 

;Point back to first char of file spec 



■ Point to default extension <"LOG"') 
/Tell ACRFIL this is an output file 
/Accrue the file spec 
/Br if invalid file spec 



i 
< 
f 

i 

I 
i 

i 



Translate logical device name to physical 



OOOOOOG 
OOOOOOG 



MOV #FILNAM/R5 
CALL LOGASN 

Check far empty file name 



/Point to file name buffer 

; Perform logical name translation 



OOOOOOG 000202 
000002G 



MOV #DS*DIR/ DSBLOK+0 ; Assume device is file struct 

jThis forces it to check for file name if device is unrecognized by . DSTAT 
. DSTAT #DSBLOK/ #F1LNAM ; Find out what kind of device it is 

BIT #DS*DIR/ DSBLOK+0 ; Standard file structured device? 

BEQ 5* /If not/ can be opened without file name 

TST FILNAM+2 /Was a file name specified? 

BEQ 10* /Error if not file name on dir struct device 



Don't allow log output to go to "TT: " 



OOOOOOG 
OOOOOOG 



5*: 



MOV 

CALL 

BCS 



FILNAM/RO 

CHKTTD 

10* 



; Get the log device name 
/ Is the log device TT? 
/Br if yes — Error 



Try to open the file 



. ENTER #XAREA/ #LOGCHN, #FILNAM, FILNAM+8. 
BCC 2* i Br if enter ok 

FABORT #BDLGOP /Cannot open log file 

Save information about the log file physical device 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
00000 IG 
OOOOOOG 



?«: 



4*: 



MOV 


FILNAM. R5 


CALL 


CHKDEV 


BCS 


3* 


CMP 


R4/ LDDEVX 


BEQ 


4* 


MOVE 


R4/ LOGDVU 


MOVB 


RO/LOGDVU+1 


CLR 


LOGBAS 


BR 


3* 


ASL 


RO 



Get log file device name 

Convert to dev # and unit # 

Br if invalid device 

Is log file on a logical disk? 

Br if yes 

Save log file device # 

Save log file unit # 

Say not on a logical disk 

/Convert unit # to word table index 



i 

( 

c 

4 
I 
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58 004772 016067 

59 005000 016067 
60 

61 
62 

63 005006 012700 

64 005012 104375 
65 

66 
67 

68 005014 052767 

69 005022 012767 

70 005030 005067 
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OOOOOOG OOOOOOG 
0000000 OOOOOOG 



OOOOOOG 



MOV LDPDEV'<RO), LOGDVU ; Save physical device and unit # 
MOV LDBASE<RO),LOGBAS ; Save base block # of logical disk 

Set "hold" mode for soooled loq files 



3«: 



MOV #SPLHLA, RO 
EMT 375 

Initialize the log file 



j Point to emt argument block 
; Set hold mode for log file 



OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



72 
73 

74 005034 

75 005036 

76 005040 
77 

78 
79 

SO 005042 

81 005052 

005060 



BIS 
MOV 
CLR 

Finished 



012605 
012604 
000207 



MOV 
MOV 
RETURN 



#<LF*OPN!LFfWRT.'LF*IN!LF*OUT>, LOGFLG ; Say log file is open 
#LOGBUF, LOGPTR ;Init pointer to log buffer 
LOOBLK i Write to block 



(SP)+, R5 
< SP ) +, R4 



g;ppp^ 



Invalid file spec 



000000 

oooooo 



10$: FABORT #BDFNAM 
OOOOOO OOOOOO DSBLOK: . WORD 0, 0, 0, O, O 
OOOOOO 



;. Invalid file name 
> . DSTAT result block 



c 

f 



r 
i 
f 
I 






I 



► 
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. 3BTTL 



L-ogorr 



3 








4 








5 








6 


005064 






7 








S 








9 








10 


005064 


012704 


002414' 


11 


005070 


004767 


OOOOOOG 


12 


005074 


103002 




13 


005076 


000167 


173352 


14 








15 








16 








17 


005102 


000134 




IS 








19 








20 








21 


005104 


032761 


OOOOOOG 


22 


005112 


001010 




23 


005114 


032767 


OOOOOOG 


24 


005122 


001004 




25 


005124 






26 








27 








28 








29 


005134 


004767 


OOOOOOG 


30 


005140 


122327 


000075 


31 


005144 


001401 




32 


005146 


005303 




33 


005150 


012704 


OOOOOOG 


34 


005154 


005005 




35 


005156 


004767 


OOOOOOG 


36 


005162 


103416 




37 








38 








39 








40 


005164 


012705 


OOOOOOG 


41 


005170 


004767 


OOOOOOG 


42 








43 








44 








45 


005174 


012705 


OOOOOOG 


46 


005200 


012704 


OOOOOOG 


47 


005204 


012700 


000004 


48 


005210 


012524 




49 


005212 


077002 




50 








51 








52 








53 


005214 


000167 


OOOOOOG 


54 








55 








56 








57 


005220 







Process the SET LOGOFF command. 

This command is used to declare a logoff command file. 



SETLOF: 

Accrue option keyword 



i*foy 

CALL 

BCC 

JMP 



SEARCH 

1* 

BD30 



Point to keyword table 
Identify keyword 
Br if identified keyword 
i Inval id option 



Enter keyword processing routine 
1*: JMP @<R4)+ i Enter keyword processing routine 

SET LOGOFF FILE==f i le-sp ec 



OOOOOOG STLOFL: BIT 

BNE 

OOOOOOG BIT 

BNE 1* 

FAB OR T #EM*NSF 



#*SUCF> LSW9<R1 ) i Are we in a startup command file? 

1* ; Br if yes 

#PO*SYS, PRIVCO ; Do we have SYSPRV privilegeT' 

; Br if yes 

; Not in a startup command file 



Accrue the file spec 

1*: CALL SKPSPC 

CMPB <R3)+.#'=^ 

BEQ 3* 

DEC R3 

3*: MOV #R50C0M, R4 

CLR R5 

CALL ACRFIL 

BCS 10* 



Skip over spaces 
Should have equal sign 
Br if yes (skip over it) 
Point to Ist char of file name 
Set "COM" as default extension 
Tell ACRFIL this is an input file 
Accrue the file spec 
Br if invalid file spec 



Translate logical file device name to physical device 



MOV #FILNAM, R5 
CALL LOGASN 



iPoint to file spec 

iPerform any logical device assignment 



Move file spec to job context block 



2*: 



MOV #FILNAM> R5 

MOV #LOFSPC> R4 

MOV #4, RO 

MOV (R5>+, <R4)+ 

SOB RO, 2« 



iPoint to file spec 

; Point to job context area 

i Get # words to move 

j Move file spec to job context block 



Finished 

JMP RDCMD 

Invalid file spec 

10$: FABORT #BDFNAM 



i 
i 
f 
I 

i 

i 



i 

f 

< 

i 
€ 
I 

< 

i 
i 
i 
t 
( 
( 



; Invalid file name 



< 

c 

I < 

I 



} 

> 
I c 

f 

) f 

t 



I < 



005230 



012704 
004767 
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3 
4 
5 
6 
7 
8 
9 
10 

11 005230 

12 005234 

13 005240 
14 

15 

16 

17 005244 

IS 005246 

19 

20 

21 

22 005250 

23 005256 

24 005260 

25 005266 

26 005270 
27 

28 
29 

30 005300 

31 005304 

32 005310 

33 005312 
34 

35 
36 

37 005322 

38 005326 

39 005332 

40 005334 
41 

42 
43 

44 005336 

45 005340 

46 005342 
47 

48 
49 
50 005344 
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SBTTL 



3 u b p r o c (? s> 5 



Process the SET SUBPROCESS command. 

This command is used to declare a command file to be executed when 

a sub process (virtual line) is initiated. 

SETSBP: 

Accrue option keyword 



002424 ' 
OOOOOOG 
OOOOOOG 



MOV 

CALL 

JMP 



#SBPHD, R4 

SCNOPS 

RDCMD 



i Point to keyword table 
j Process the options 



010446 
010546 



032761 
001010 
032767 
00 1 004 



004767 
020027 
101404 



012705 
012704 
112524 
001376 



012605 
012604 
000207 



SET SUBPROCESS/FILE=^file-spec 



SBPFIL: MOV 
MOV 



R4, -(SP) 
R5, -(SP) 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



This command is only legal within a start-up command file 

BIT #*SUCF, LBW9<H1 ) i Are we in a startup command file? 

BNE 1* ;Br if yes 

BIT #PO*SYS. PRIVCO ^ Do we have SYSPRV priviieqe? 

BNE 1$ i Br if yes 

FABORT #EM*NSF > Not in a startup command file 



OOOOOOG 
000017 



Accrue the file spec 

1*: CALL ACRTXT 

CMP RO, #15. 

BLOS 3* 

FABORT #EM*STL 



iAccrue the file string 

; Compare with ma.x legal length 

; Br if ok 

jFile spec is too long 



Move file spec to job context block 



OOOOOOG 
OOOOOOG 



3*: MOV 

MOV 
2*: MOVB 
BNE 

Finished 

MOV 
MOV 
RETURN 



#BLKO, R5 
#SBPSUF. R4 
(R5)+, (R4) + 
2* 



(SP)+> R5 
( SP ) +, R4 



j Point to file spec 

; Point to job context area 

j Move file spec to job context block 

J Loop till all moved 



Invalid file spec 
10*: FABORT #BDFNAM 



; Invalid file name 



I 
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005354 
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1 
S 
3 
4 
5 
6 
7 
8 
9 
10 

11 005354 

12 005360 

13 005362 

14 005364 

15 005370 
16 

17 
18 

19 005372 

20 005376 

21 005400 

22 005404 

23 005406 
005412 
005414 
005420 
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0000000 



004767 

105713 

00 1417 

122327 000075 

001053 



24 

25 
26 
27 

29 

30 005422 

31 005426 
32 

33 
34 

35 005432 

36 005436 

37 005442 

38 005444 
39 

40 
41 

42 005446 

43 005466 

44 005470 

45 005476 

46 005504 
47 

48 

49 

50 

51 005510 

52 

53 

54 

55 005520 

56 

57 



012704 
005005 
004767 

J 0345.1 
012704 
010405 
00 4767 
000404 



012704 
016714 



012700 
012705 
012425 
077002 



0000000 
OOOOOOG 
0000000 

OOOOOOG 



0000000 
0000000 



000004 
OOOOOOG 



103410 

052761 
000167 



. aBTTL 



Kmon 



Process the SET KMON USER command. 

Verify that a user-written command interface program exists and if sOj 

set a flag saying to use it for this job. 



SETUKM: 

See if user specified a file spec 



CALL 


SKPSPC 


TSTB 


<R3) 


BEQ 


2* 


CMPB 


<R3)4-, #'-^ 


BNE 


3* 



Accrue the user file name 



MOV 


#R50SAV, R4 


CLR 


R5 


CALL 


ACRFIL 


BCS 


4* 


MOV 


#FILNAM, R4 


MOV 


R4. R5 


CALL 


LOGASN 


BR 


6* 



iSkip over any spaces 

: Anything specified following "USER"? 

i Br if not 

■> Equal sign? 

; Error if not 



> Set default extension 

;Tell ACRFIL this is an input file 

iAccrue the file spec 

.: Br if invalid file spec 

iPoint to area with file spec 

i Convert logical device name to physical 



User did not specify a file name. Default to "SY: UKMON. SAV". 



2*: MOV #UCIDEF, R4 
MOV SYNAME, <R4) 



iPoint to default file spec 
; Set physical SY device 



Move file spec to UCISPC area in context block 



6*: MOV #4,R0 

MOV #UCISPC.R5 

5*: MOV (R4)+, <R5)+ 

SOB RO, 5* 



i Get # words to move 

j Store UCI file spec here 

i Move file spec to job context block 



OOOOOOG OOOOOOG 
OOOOOOG 



Try to lookup the specified file 

.LOOKUP #XAREA, #1. #UCISPC; Try to find command processor program 

BCS 1* i Br if not available 

.CLOSE #1 i Close the program file 

BIS #*UKMON> LSW7<H1 ) J Set flag saying to use user-written program 

JMP RDCMD 

Error processing 

Cannot find specified file 

1*: FABORT #EM*NUK 

Invalid syntax 

3*: FABORT #MISSEO 

i Invalid file spec 



i User-written command processor not available 
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r- *^ 

59 005530 4$: FABORT #BDFNAM 
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' c 

f 

► 

c 

I 

' I 

► 

( 

I 

I i 

i 

( 

( 



TSKSTl -- Keyboard SET 
Kmon 



1 
J. 

-) 

3 
4 

5 005540 

6 005544 

7 005564 
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004767 
103500 



0000000 



10 
11 
12 



005566 
005624 



21 

22 

23 

24 



14 005634 

15 005640 

16 005644 

17 005650 
IS 005654 

19 005660 

20 005662 
005664 
005666 
005672 
005676 

2b 005 /Ok' 

26 005710 

27 

28 

29 

30 005716 

31 

32 

33 

34 005736 

35 005744 
36 

37 

38 

39 005764 

40 

41 

42 

43 005766 

44 

T I..' 

46 
47 

48 

49 005776 

50 006002 

51 006022 

52 006024 

53 006044 

54 006050 



016700 

042700 
010067 
162700 
010067 
062700 
000241 
006000 
000300 
042700 
062700 
010067 
01(b/6/ 
ni A7A7 



000050G 

000003 

000001 

0000000 

OOOOOOG 

OOOOOOG 

000777 



1 77400 
OOOOOOG 
OOOOOOG 

000042G OOOOOOG 
000040G OOOOOOG 



; Process the SET KMON NEW command. 

; Begin to use a new version of TSKMON. 

i 

SETKNW: CALL CKSYPV ; Must have SYSPRV privilege 

.LOOKUP #XAREA, #1. #KMNNAM .TRY TO LOOKUP SY: TSKMON. SAV 
BCS 1* ;BR IF NOT THERE 

i 

i Get information about TSKMON out of block of file 

. READW #XAREA, #1, #BLKO, #256. ,#0 ; READ IN BLOCK 



MOV BLKO+50, RO 

BIC #1,R0 

MOV RO, KMNTOP 

SUB #KMNBAS. RO 

MOV RO, KMNHI 

ADD #511. , RO 

CLC 

ROR RO 

SWAB RO 

BIC #-^C377,R0 

ADD #CXTPAG, RO 

MOV RO, KMNPGS 

MOV BLKO+42, KMN3TK 

MOV BLK0+40, KMNSTR 



i GET TOP ADDRESS OF KMON 
i BOUND UP TO NEXT WORD 
; FORCE EVEN 

BASE ADDRESS OF KMON 
TOP OF TSKMON-KMNBAS 
BOUND UP TO PAGE SIZE 

; CVT TO # WORDS 
; CVT TO # PAGES 

# PAGES NEEDED TO JOB CONTEXT AREA 

# 256 WORD PAGES FOR KMON & CONTEXT 
INITIAL STACK POINTER 

STARTING ADDRESS 



Now do . SAVESTATUS so we can quickly reopen to kmon 

. SAVEST #XAREA, #1, #KMNCHN i SAVE STATUS 

Now purge and reopen channel 17 to the new file (for overlays). 

PURGE #17 j Purge channel 17 (overlaii channel) 

.REOPEN ttXAREA, #17,#KMNCHN ;Open channel 17 to new file 



Exit to reload Kmon 
. EXIT 



EXIT AND REENTER NEW VERSION OF TSKMON 



Error: Cannot find new Kmon file 



1$: 



FAB OR T #NOKMON 



; ERROR — CAN'T FIND TSKMON 



004767 
103412 
000167 



OOOOOOG 



OOOOOOG 



; Process the SET CCL NEW cowjmand. 
; Begin to use a enw version of CCL 

SETCNW: CALL CKSYPV ; Must have SYSPRV privilege 

.LOOKUP #XAREA, #1,#CCLNAM ; TRY TO LOOKUP SY: CCL. SAV 
BCS 1* ;BR IF CAN'T FIND IT 

.SAVEST ttXAREA, #1, #CCLSAV ; SAVE STATUS 
JMP RDCMD i FINISHED 

1*: FABORT #NOCCL ; CAN'T FIND CCL. SAV 
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1 


LD 






2 








3 








4 








5 


006060 


005002 




6 


006062 


020067 


OOOOOOG 


7 


006066 


001404 




S 


006070 


010002 




9 


006072 


166702 


0000000 


10 


006076 


006302 




11 








12 








13 








14 


006100 


012704 


001264' 


15 


006104 


004767 


0000000 


16 


006110 


103004 




17 


006112 






18 








19 








20 








21 


006122 


000134 




22 








23 








24 








25 


006124 


004767 


OOOOOOt) 


26 


006130 


000167 


OOOOOOG 


27 








28 








29 








30 


006134 


042762 


OOOOOOG OOOOOOG 


31 


006142 


000167 


OOOOOOG 


32 








33 








34 








35 


006146 


052762 


OOOOOOG OOOOOOG 


36 


006154 


000167 


OOOOOOG 


37 








38 








39 








40 


006160 


004767 


000052 


41 


006164 


004767 


OOOOOOG 


42 


006170 


000167 


OOOOOOG 



I '..» 



Process SET LDn command 



SETLD: CLR 
CMP 

MOV 

SUB 
ASL 



R2 

RO, R50LD 

1* 

RO, R2 

R SOLDO, R2 



Get the option word 

1*: MOV #LDOPHD, R4 

CALL SEARCH 

BCC 2* 

FABORT #CSIMS1 

> Jump off to option proce& 

2«: JMP e(R4)+ 

f 

i SET LD CLEAN 
i 

SLDCLN: CALL LDCLEN 
JMP RDCMD 

SET LDn WRITE 

SLDWRT: BIC 
JMP 



ASSUME UNIT # = 

IS UNIT "LD"? 

BR IF YES 

GET DEVICE NAME 

SUBTRACT "LDO" TO GET UNIT # IN R2 

CONVERT TO WORD TABLE INDEX 



i POINT TO OPTION TABLE 

J ACCRUE AND CHECK OPTION WORD 

; BR IF FOUND 

i INVALID OPTION WORD 

sing routine 

; ENTER PROCESSING ROUTINE 

i CLEAN UP LOGICAL DISKS 



#LD*RON, LDFl. 
RDCMD 



SET LDn NOWRITE 



SLDNWR: BIS 
JMP 

SET LDn FREE 

SLDFRE: CALL 
CALL 
JMP 



#LD$RON> LDFl. 
RDCMD 



LDDMT 

LDCLEN 

RDCMD 



.AG<R2) i CLEAR READ-ONLY FLAG 
i FINISHED 



.AG ( R2 ) ; SET READ-ONLY FLAG 
i FINISHED 



DISMOUNT THIS LD 

NOW RESET ALL LOGICAL DISK ASSIGNMENTS 

FINISHED 



c 
f 
i 

i 

i 
i 
i 
i 
i 
i 
i 

C 

I 

i 



« 
i 
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LD 



1 
2 
3 
4 
5 
6 
7 
8 
9 



006174 



> i, / *f \J\J sJ\./\. 



11 006176 

12 006202 

1 3 006206 

14 006212 
15 

16 
17 

18 006214 

19 006220 

20 006222 

21 006224 

23 
24 

25 



004767 000102 
062702 000002 

101771 



012700 
104375 
103003 



000110' 



006232 000167 OOOOOOG 



SET LD EMPTY 

(Dismount all logical di&kis.) 



SLDEMP: 



1*; 



Begin loop to close lop files and deassign any assignments for each 
logical disk 

;Init index to Ist LD 

> Close any log files and make deassignments 

i Get index for next LD 

iV^at'^B u»e done all? 

i Loop if not 



CLR 


R2 


CALL 


LOGDEA 


ADD 


#2, R2 


CMP 


R2, #14. 


BLOS 


1* 



9$: 



Dismount the all LD'b 

MOV #DMTALD, RO 

EMT 375 

BCC 9* 

.PRINT #EDMALD 

Fini shed 

JMP RDCMD 



i Emt arg. block to dismount all LD's 

; Dismount all LD's 

i Branch if all LD's dismounted 

i "Unable to dismount all logical disks." 



i 

i 

i 



i 

I 
i 
i 
< 
C 

i 



i 

< 
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LD 



1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

J. t-t 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 



Subroutine to dismount a logical disk. 

Inputs: 
R2 = LD unit index 



006236 
006240 



006244 

006256 
006260 



006264 
006270 
006274 



OO63O0 
006302 



010246 

004767 000040 



112767 000001 OOOOOOG 

r\-i n~7nri r\r\r\nr\r\r^ 

'W J. CU / WW 'WW\-rwWW'W 

104375 

105067 OOOOOOO 



LDDMT: 



005062 
072227 
005062 



Olid602 
000207 



OOOOOOG 

000002 

OOOOOOG 



MOV 
CALL 



R2, -<SP) 
LOGDEA 



Close any log files and make deassignments 



Tell system to stop doing directory caching for device 



MOVB 


#1,SERFLG 


MOV 


#DMTARGi RO 


EMT 


375 


CLRB 


SERFLG 



Clean out LD info tables 



V*: 



CLR 


LDPDEV<R2) 


ASH 


#2, R2 


CLR 


LDNAME<R2) 


Finished 




MOV 


<SP)+, R2 


RETURN 





i Do . SERR to avoid abort for illegal device 

i Point to EMT arg block 

iTell system to stop doing caching 

; Do . HERR 



; No physical device assignment 
i Get index into LDNAME table 
i No file name 



I 

c 

< 

I 

r 

I 

I 
i 

I 



' I 
I 

I 

• I 
t 
< 
( 
( 
1 

i 
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3 








4 








5 








6 








7 








8 


006304 


010246 




9 


006306 


010546 




10 








11 








12 








13 


006310 


010200 




14 


006312 


072027 


000002 


15 


006316 


005760 


OOOOOOG 


16 


006322 


001413 




17 








18 








19 








20 


006324 


010205 




21 


006326 


006205 




22 


006330 


066705 


0000000 


23 


006334 


010567 


OOOOOOG 


24 








25 








26 








27 


006340 


004767 


OOOOOOG 


28 








29 








30 








31 


006344 


010500 




32 


006346 


004767 


OOOOOOG 


33 








34 








35 








36 


006352 


012605 




37 


006354 


012602 




38 


006356 


000207 





Subroutine to check for open log files and deassign any assignments 



Inputs: 
R2 = LD unit index 



LOGDEA: MOV 
MOV 



R2, -<SP) 
R5, -<SP) 



See if this LD is in use 

MOV R2, RO 
ASH #2, RO 
TST LDNAME(RO) 
BEQ 9* 

Build name of LD 

MOV R2, R5 
ASR R5 
ADD R SOLDO, R5 
MOV R5, MNTDEV 



j Get LD unit index 

i Cvt to index into name table 

j Is this LD in use? 

; Br if not 



i Get LD unit index 

; Convert to unit number 

iAdd "LDO" to form unit name 

; Save name of device being dismounted 



Close the log file if it is on the device being dismounted 

CALL LOGCHK i Close log file if it is on this LD 

Do DEASSIGN of anything assigned to this LD 

; Get LD name 
} Do deassign 



9*: 



MOV 


R5, RO 


CALL 


DEADEV 


inished 




MOV 


<SP)+, R5 


MOV 


<SP)+, R2 


RETURN 





f 
I 
I 

I 

4 
( 



€ 

I 
i 
i 
I 

4 

( 
( 
< 
I 
4 
( 






c 
f 
I 

i 
i 
i 
f 

i 
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I 
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i-vrj-r-'T'i r-vi 

SET SL 

Inputs: 
R3 = Pointer to parameters following "SET SL". 

SETSL: 

Process each of the command parameters 



12 006360 

13 006364 
14 

15 

16 

17 006370 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



012704 



006374 
006400 
006402 
006416 
006420 

28 006426 

29 006430 

30 006444 

31 006446 

32 006454 

33 006462 

34 006464 

35 006472 
36 

37 
38 
39 

40 006474 

41 006502 

42 006510 
43 

44 
45 
46 

47 006512 

48 006520 
49 

50 
51 
52 

53 006522 

54 006530 
55 

56 
57 



105767 
00100/ 

000425 
032761 
001007 

000412 
052761 
032761 
001403 

000207 



042761 
000207 



052761 
000207 



042761 
000207 



001314' 
OOOOOOG 



000167 OOOOOOG 



MOV 
CALL 

Finished 

JMP 



#SLEHD, R4 
SCNOPS 



RDCMD 



/Point to list of qualifiers 
;ProcB3s the qualifiers 



OOOOOOG 



OOOOOOC OOOOOOG 1$: 



OOOOOOG OOOOOOG 2*: 
OOOOOOG OOOOOOG 



SET SL ON 

SLOON: TSTB 

BNE 

FWARN 

BR 

BIT 

BNE 

FWARN 

BR 

BIS 

BIT 

BEQ 

.PRINT #SLKDON 
9*: RETURN 



VSLEDT ; Is SL available? 

1* > Br i f yes 

#EM*NSL ; b'L not genned into system 

9* 

#<:VT100!VT200!VT52>, LTRMTPCRl) ; VTIOO, VT200 or VT52 

2* ; Br if yes 

#EM$SLT j Invalid terminal type 

9* 

#*SLON» LSW7<R1 ) ; Enable SL for this line 

#*SLKED* LSW7(R1 ); Is Ked mode wanted? 

9* i Br if not 

; Enable terminal alternate keypad mode 



SET SL OFF 

SLOOFF: .PRINT #SLKDOF ; Return numeric feeypad to normal mode 
OOOOOOG OOOOOOG BIC #*SLON, LSW7<R1 ) i Disable SL for this line 

RETURN 

SET SL TTY 

OOOOOOG OOOOOOG SLDTTY: BIS #*SLTTY, LSW7<R1 ) > Enab 1 e SL for . TTYIN 

RETURN 

SET SL NOTTY 

OOOOOOG OOOOOOG SLONTT: BIC #*SLTTY. LSW7 < Rl ) ; Di sab 1 e SL for TTYIN 

RETURN 



I 
f 



f 
I 

c 
i 
< 
I 
I 
i 

( 
I 

< 
f 

« 

c 



SET SL WIDTH=n 



i 
C 

i 



> 



c 

f 
f 
i 
c 
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I 
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< 

i 

» 

I 
i 

I 
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006532 
006546 
006552 
006556 
006564 



006566 
006574 



006576 
006604 



006606 
006614 
0066id^ 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 

69 

-7n 

71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 

8i:.' 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 

103 
104 
105 
106 
107 
108 
109 
110 
HI 
112 
Et'^ T- o r s detected: 



012705 
004767 

000207 



052761 
000207 



042761 
000207 



052761 
OQUidU/ 



006624 
006632 
006640 



042761 
000207 



006642 
006656 



000207 



006660 000207 



006662 
006666 
006672 
006674 
006710 
006714 



012704 
004767 
103006 

111467 
000167 

000001 





SLOWIB: 



OOOOOOG 
OOOOOOG 



FWARN 
liOV 
CALL 
. PRINT 
RETURN 



#EM*SLW 
#SLIiXLN, R5 
PRTDEC 
#CRLF 



/Print Uiejming ineij&age 
} Get SL width 
i Print the value 
/Terminate the line 



T SL LEI 



OOOOOOG OOOOOOG SLOLET: BIS 

RETURN 



#*SLLET/ LSW7<Rl)i Enable LET feature 



SET SL NOLET 



OOOOOOG OOOOOOG SLONLT: BIC 

RETURN 



#*SLLET/ LSW7<Rl)i Disable LET feature 



SET SL KED 



OOOOOOG OOOOOOG SLOKED: BIS 



.PRINT #SLKDON 
RETURN 



#«SLKED/ LSW7(R1 )i Remember SL is in KED mode 

i Enable terminal alternate keypad mode 



SET SL RTll 



OOOOOOG OOOOOOG SLDRT: 



BIC #*SLKED/LSW7<Rl)i Remember SL is not in KED mode 
.PRINT #SLKDOF /Return numeric keypad to normal mod* 

RETURN 



Unimplemented SL option 

SLOUNI: FWARN #EM*UIO 
RETURN 



/Unimplemented option 



Ignored option 
SLONOP: RETURN 



SET RECALL NORMAL/ REVERSE 



001444' 
OOOOOOG 



OOOOOOG 
OOOOOOG 



SETREC: MOV 
CALL 
BCC 
FWARN 

If: MOVB 
JMP 

. END 



#RCLHD, H4 

SEARCH 

1* 

#INVOPT 

©R4/ RCLRLV 

RDCMD 



iPoint to option table 

iAccrue and check options 

/Br if valid option 

i Inval id option 

; Set into context cell 



I 

€ 

i 
i 



t 
i 
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SL 



*«* Assemble! 



^ U a 1/ 1 S tr A 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







12080 Words 

18176 Words 

RT -11 



48 
71 



Pages ) 
Pages ) 



Elapsed time: 00:01:56.07 

, LP: TSKSTl =DK: TSKSTl /C/N: SYM 



f 
i 

i 
( 

4 
I 
< 
I 



I 
( 



f 
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Cross reference table (CREF V05. 05) 



*1STLG 




-73 


*SBIT 




-111 


*AUTO 




-87 


*CARUP 




-85 


*CCLRN 




-86 


*CFABT 




-106 


*CFALL 




-112 


*CFCCL 




-112 


*CFDCC 




-112 


«CFOPN 




-118 


«CFSOT 




-110 


*CHACT 




-61 


*CLTST 




-96 


*CTRLC 




-104 


*CTRLD 




-154 


*CTRLO 




-61 


*CTRLS 




-91 


*DBKMN 




-84 


*DEAD 




-158 


*DEBUG 




-155 


*DEFER 




-124 


*DETCH 




~S9 


*DIBOL 




-73 


*DILUP 




-108 


*DISCN 




-90 


*DOOFF 




-114 


*DUPRN 




-109 


*ECHO 




-111 


*EriTTR 




-95 


*FORM 




-no 


*FORHO 




-112 


*HARD 




-158 


*HITTY 




-72 


*INCOR 




-128 


*INDAB 




-159 


*INDDF 




-157 


*INDRN 




-157 


«INIT 




-158 


*INKMN 




-104 


*KED 




-128 


*KINIT 




-68 


*LC 




-111 


*LOFCF 




-203 


«MLOCK 




-77 


*NOIN 




-72 


*NOINT 




-204 


*NOWTT 




-72 


*PAGE 




-111 


*PHONE 




-158 


*PRGLK 




-87 


*PWKEy 




-32 


*QTSET 




-133 


*QUIET 




-125 


*RNIOP 




-205 


*SCOPE 




-111 


fSGALL 




-124 



5-^5 5-46 
10-38 10-40 

5-38 5-39 



€ 



5-167 5-168 



5-174 5-175 10-48 



5-62 5-63 

5-32 5-33 14-86 14-96 



14-43 14-48 14-56 



17-6 



20-103 20-109 



5-206 



I 
I 
I 

( 
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*SGHIO 
*SGIIO 
*SGQ0 


1-123 
1-123 
1-105 


5=180 
5-190 
5-192 


5-189 
5-191 
5-193 






















«SGQ1 

*SGQ1A 

$SGQ1B 


1-123 
1-123 
1-123 


5-194 
5-196 
5-198 


5-195 
5-197 
5-199 






















«SGQ1C 

*SGQ2 

*SGQ3 


1-123 
1-123 
1-105 


5-200 
5-202 
5-204 


5-201 
5-203 
5-205 






















*SLKED 
*SLLET 
$SLON 


1-82 
1-202 

1-202 


34-32 
34-68 
34-31 


34-80 
34-74 
34-41 


34-87 




















«SLTTY 
*SNWTT 
*SPLJB 


1-202 
1-155 
1-91 


34-47 


34-53 






















*STSNG 

«SUCF 

fSYSPS 


1-61 

1-113 

1-160 


17-7 


26-21 


27-22 




















*TAB 

*TAPE 

*TECO 


1-110 
1-153 
i-133 


14-43 


14-49 


14-55 




















*TTGAG 


1-118 


























*UCLCF 


1-119 


5-t)3 


14-61 


14-68 


14-74 


14-79 
















*UCLCL 


1-121 


5-t>t7 


14-62 


1 4-68 


14-73 


14-79 
















*UCLCM 
*UCLRN 
*UKMON 


1-121 
1-120 
1-85 


5-54 
5-34 


14-62 
28-45 


14-67 


14-74 


14-79 
















*VNOTT 
*VTESC 
*WILD 


1-48 
1-81 
1-134 


5-25 


5-26 






















... VI 


8-57 


9-28 


9-30 


10-16 


10-18 


11-28 


1 1 -28 


11-28 


11-30 


11-30 


11-35 


11-41 






11-41 


11-44 


12-74 


12-75 


12-75 


12-95 


12-96 


12-96 


12-97 


12-97 


13-5 


13-5 






13-6 


13-6 


13-38 


14-87 


14-90 


14-97 


14-100 


18-60 


18-66 


18-72 


18-78 


21-11 






21-14 


21-21 


22-11 


22-14 


23-9 


25-28 


25-42 


25-42 


25-42 


28-42 


28-42 


28-42 






28-44 


28-44 


29-6 


29-6 


29-6 


29-11 


29-11 


29-30 


29-30 


29-34 


29-35 


29-35 






29-50 


29-50 


29-50 


29-52 


29-52 


31-21 


34-34 


34-40 


34-62 


34-81 


34-88 






. . . V2 


8-57 


8-57# 


11-28 


11-28 


ll-28# 


ll-28# 


11-30 


11-30 


ll-30# 


ll-30# 


11-35 


ll-35# 






11-41 


11-41 


11-41# 


11-41# 


11-44 


ll-44# 


12-74 


12-74# 


12-75 


12-75 


12-75# 


12-75# 






12-95 


12-95# 


12-96 


12-96 


12-96# 


12-96# 


12-97 


12-97 


12-97# 


12-97# 


13-5 


13-5 






13-5# 


13-5# 


13-6 


13-6# 


13-38 


13-3S# 


14-90 


14-90# 


14-90# 


14-100 


14~100« 


14-100# 






23-9 


23-9# 


23-9# 


25-42 


25-42 


25-42# 


25-42# 


28-42 


28-42 


28-42# 


2S-42# 


28-44 






28-44# 


29-6 


29-6 


29-6# 


29-6# 


29-11 


29-11 


29-1 1# 


29-1 1# 


29-30 


29-30 


29-30# 






29-30# 
29-52 


29-34 
29-52# 


29~34# 
29-52# 


29-35 


29-35 


29-35# 


29-35# 


29-50 


29-50 


29-50# 


29-50# 


29-52 




. . . V3 


14-90 


14-90 


14-90# 


14-100 


14-100 


14-100# 


23-9 


23-9 


23-9# 










ABRTAD 
ABRTCD 
ABRTCF 


1-48 
1-48 

1-165 


























ACRDEC 

ACRFIL 

ACRFN 

AC R OCT 

ACRSPD 

ACRSTR 


1-173 
1-172 

1-165 
1-175 
1-76 
1-37 


9-16 
25-16 

12-60 
1 5-22 


9-48 
26-35 


10-8 
28-21 


12-58 


14-33 


19-8 


19-33 


21-5 


22-5 








ACRTXT 
AD**SZ 


1-39 
1-64 


16-13 


27-30 





















i 
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i 

4 
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Cross reference table <CREF V05. 05) 



i 
i 
i 



AD*DVU 


i-64 






AD«JOB 


1-64 






ADM3A 


1-148 






ADH3FL 


1-149 






ADM3N0 


1-151 






AF*DBG 


1-204 






AF*HIE 


1-204 






AF$ I OP 


1-205 






AF*MEM 


1-47 






AF*NOI 


1-204 






AF*NOW 


1-47 






AF*PLK 


1-204 






AF$SCA 


1-47 






ALCDEV 


1-28 






ALCEND 


1-63 






ALCHDl 


1-60 






ALCHD2 


1-60 






ALCTBL 


1-63 






ALDBLK 


1-188 






ALDEX 


1-187 


1-lBB 




ALFN 


1-199 






AMBOPT 


1-173 


1-186 


8-56 


AR**SZ 


1-202 






AR*CNT 


1-201 






AR*CON 


1-201 






AR$CPH 


1-201 






AR*CPL 


1-201 






AR*DMY 


1-202 






AR*PRG 


1-201 






AR*PRJ 


1-201 






AR*UNM 


1-201 






ARNRPB 


1-202 






ASDEX 


1-170 






ASKLNM 


1-169 






ASNHDl 


1-182 






ASNHD2 


1-182 






ASNOVF 


1-170 


1-195 




ASNSRC 


1-137 


7-45 




ATfDEV 


1-56 


7-47 




AUTHFN 


1-192 






BADCMD 


1-169 






BADPMT 


1-176 


15-38 




BADPRI 


1-176 


21-8 


22-8 


BADSAV 


1-169 






BASMAP 


1-142 






BDFNAM 


1-172 


25-80 


26-57 


BDLGOP 


1-177 


25-44 




BDLIN 


1-190 






BDSO. 


8-44 


S-54# 


26-13 


BELL 


2-7# 






BLANK 


2-6# 






BLKO 


1-168 


11-30 


12-23 




29-12 


29-25 


29-26 


BLKWDS 


2-ll# 






BOTDEV 


1-103 


23-18* 




BOTUNI 


1-103 







27-50 28-59 



12-39 13-5 13-28* 1 3~29* 13-30 15-25 16-23 27-37 29-11 ^ 

c 
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< C. CSW 1-115 
C. DEVQ 1-115 
C. SBLK 1-115 

< C. USED 1-41 24-34 fr 
CALUCL 1-181 
CASCBR 1-97 
CASCUP 1-97 
CASTER 1-97 
CASTBW 1-97 
CASTRO 1-98 
CASTWO 1-98 

CCLNAM 1-196 29-50 

CCLSAV 1-94 29-5P 

CD**SZ 1-116 

> ' CD**UB 1-116 






( 
I 



I 



CD*BAS 1-116 
CD$DVU 1-116 



I i CD*JOB 1-116 

CD*NAM 1-116 

CD*TOP 1-133 

I CDBUF 1-38 

CDGET 1-38 

Cf-*IND l-lt>v 14-av 14-vv 

I t CF$QUT 1-159 

I CFABLV 1-160 23-9 

CFBLK 1-125 

> t CFBUF 1-94 

I CFCHAN 1-124 

I CFEND 1-94 

< CFHOLD 1-132 
CFIND 1-114 
CFLFL4 1-119 
CFNEST 1-117 

' CFPNT 1-125 

> CFSEND 1-118 

< CFSP 1-118 
CFSPIMD 1-131 
CFSTK 1-60 

I < CFSTS 1-159 14-87 14-90 14-97 14-100 

i CHAIN 1-104 

' CHKALC 1-111 7-75 

* CHKCLU 1-36 7-65 
I CHKDEV 1-196 25-49 

CHKDLM 1-186 

« CHKEQ 1-45 20-20 20-32 

CHKMNT 1-171 

i CHKMTX 1-171 

* CHKTTD 1-194 25-37 
I CHNSIZ 1-41 24-32 
I . CINDAT 1-141 

* CINFLG 1-48 
CKACOJ 1-45 
CKCLUS 1-37 

CKPRIV 1-173 14-6 14-14 23-16 23-24 

CKSYPV 1-45 8-14 9~12 9~44 10-4 16-9 29-5 29-49 



I 
f 

i 

( 
< 

€ 

i 
i 
I 

( 

I 
( 
( 
I 



I 
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i 

i 

( 
I 
f 

I 

» 

c 
« 

I 

I 
i 
i 

i 



5-39 


5-46 


5-63 


5-168 


5-203 


5-205 


5-206 


14-15# 



CLRPRV i-43 

CLSFEP 1-42 

CLSFSP 1-9S 

CLTOTL 1-98 7-6;^ 

CLUNIT 1-57 

CMDBUF 1-164 1-181 

CMDCCL 1-196 

CMDDSN 1-27 

CMDFRM 1-27 

CMDHD 1-26 

CMDMEM 1-20 

CMDOFF 1-26 

CMDSET 1-28 7-5# 

CMDSHO 1-28 

CMDUSE 1-28 

CMDWHO 1-28 

CO*SBT 1-115 

CO*BNI 1-100 

CO*BNO 1-100 

CO$CR 1-99 

CO*CTL 1-99 

CO*DEF 1 -66 

CO*DTR 1-98 

CO*FF 1-99 

CO*FFO 1-99 

CO$LC 1-99 

CO*LFI 1-100 

CO*LFO 1-100 

CO*TAB 1-99 

COAD 1-187 1-188 

COAF 1-200 

COAL 1-187 1-188 

COLOO 1-181 

COMMA 2-10# 

C0NFG2 1-62 

CONFIG 1-113 



I ' CKTERM 1-174 

CL*COL 1-66 

CL«EPN 1-41 

• CL*EPS 1-41 

CL*LEN 1-101 

CL*LIN 1-101 

CL*LIX 1-62 

CL*OPT 1-100 

CL*RQH 1-63 

CL*SKP 1-101 

CL*WID 1-101 

CL*WQH 1-63 

CL*XLN 1-37 

CLDEVX 1-139 

CLEOFS 1-41 

CLFREE 1-57 

CLLINE 1-57 

CLDTIR 1-65 

CLRBIT 5-26 5-34 5-39 5-46 5-63 5-168 5-175 5-189 5-191 5-193 5-195 5-197 * 

5-199 5-201 



i 



i 

i 

i 
i 
i 
i 
f 
A 
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CORUSR 1-61 14-34 20-102 20-108 22-20 i 

CPUAH 1-181 

CPUAL 1-181 

CR 2-5# t 

CRLF 1-176 9-30 10-18 21-14 21-21 22-14 34-62 

CS*RON 1-80 

CSHALC 1-103 10-9 4 

CSHDEV i-lOS 

CSHDVN 1-108 

CSHHD 1-163 < 

CSHMSG 1-203 

CSHSI2 1-143 

CSIMSl 1-175 13-39 30-17 t 

CSIMS2 1-173 7-44 11-36 

CSIMS4 1-195 

CTDHD 4-12 5-236# i 

CTRLTT 1-102 

CURMTX 1-186 

CURPRM 1-130 ( 

CVDVNM 1-1B3 

CVTTAB 1-164 7-5 

CVTUC 1-163 I 

CW*50H 1-113 

CW*PRU 1-tih! 

CXTBAS 1-107 i 

CXTPAG 1-79 29-23 

CXTRMN 1-41 24-26 

CXTWDS 1-107 < 

DATTIM 1-27 

DCCRD 1-137 

DCCWR 1-137 < 

DCHNEW 6-33# 10-26 

DCTRD 1-137 

DCTWR 1-137 t 

DEADEV 1-171 33-32 

DELSPC 1-185 

DETARG 1-200 t 

DETHD 1 -200 

DETTXT 1-179 

DEVHDl 1-182 

DEVIDL 1-187 1-187 1-108 

DEVUNT 1-174 11-20*^ 12-85 

DFJMEM 1-68 

DIABFL 1-125 

DIABLO 1-147 

DIABNO 1-126 

DIVIDE 1-180 

DIVSOR 1-193 

DJABMS 1-191 

DKASHD 1-59 

DKSAV 1-164 

DLCEMT 1-28 

DLMSG 1-191 

DLTXT 1-178 

DMTALD 6-60# 31-18 

DMTALL 1-191 



I 



, « 



I 

I < 



< 
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I * DMTARG 1-170 32-13 
I DMTSUB 1-196 



DOASGN 1-85 

DORUN 1-27 

DOSTOP 1-192 

DS*DIR 1-204 25-26 25~29 

DSBLOK 25-26* 25-28 25-29 25-81# 

DVFLAO 1-32 13-22 

DVSHHl 1-59 

DVSHH2 1-59 

DVSHH3 1-59 

DVSTAT 1 -76 

DX*NST 1-32 13-22 

DZTXT 1-198 

EDIT 1-73 

EDITHD 4-13 5-4# 

EDMALD 1-42 31-21 

EDTFIL 1-184 

EM* ACL 1-54 

EM*CAP 1-44 

EM*CIP 1-53 22-18 

EM*CLB 1-54 

EM*CLN 1-53 

EM*CLX 1-36 

EMfCNO 1-44 

EM*CPO 1-44 



c 
I 
( 
I 
I 

I . EM*CSE 1-70 



EM*SLW 1-54 34-59 

I EM*SPL 1-39 16-19 

* EM*STL 1-42 27-33 
EM*TSL 1-54 

EM*UIO 1-55 34-94 

* EM*WC0 1-40 18-96 
EM*WC1 1-40 18-97 
EM*WC2 1-40 18-98 

* EM*WC3 1-40 18-99 
EM*WCM 1-40 18-11 
EMTHD 4-14 5-173# 

* ERRHD 4-16 5-13# 
ERRLOC 1-67 18-86 

i 



EM*HNI 1-68 13-16 

EM*ICL 1-52 

EM*IDR 1-42 

EM*ILN 1-53 1-54 

EM* I ST 1-42 

EM* I UN 1-53 

EM*NAD 1-46 10-37 10-47 

EM*NPD 1-53 10-34 

EM*NPR 1-45 

* EM*NSF 1-53 26-25 27-26 

EM*NSL 1-54 34-25 

EM*NUK 1-86 28-51 

' EM*OPR 1-36 11-45 



EM*PTA 1-36 20-41 
EM*PTU 1-36 20-43 
EM*SLT 1-54 18-46 34- 



€ 

i 

i 
I 
I 
I 
C 



I 



I 



i 
I 

f 

i 
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I < FILNAM 1-165 1-166 25~21 25-28 25-31 25-36 25-42 25-42 25-48 26-40 26-45 28-23 * 

8-58 10-34 10-37 10-47 11-36 11-45 13-33 13-39 14-39 

_..___ .._ _„ 18-46 18-92 22-18 25-44 25-SO 26-25 26-57 27-26 27-33 

* 27-50 28-51 28-55 28-59 29-43 29-54 30-17 t 

20-43 21-8 21-18 22-8 



I HANCHN 1-64 8-57 8-57 11-28 11-28 11-30 11-30 11-35 11-35 11-41 11-41 11-44 

13-5 13-5 13-6 13-6 13-38 13-38 



ERRSEV 


1-134 


23-5* 






ESC 


1-82 








FC*CDX 


1-163 








FC*LNK 


1-163 








FDfNAM 


1-163 








FF 


2-9# 








FILNAM 


1-165 


1-166 


25- 


-21 


FKILL 


1-165 


7-44 


s- 


-56 




14-92 


16-19 


18- 


-11 




27-50 


28-51 


28- 


-55 


FPRINT 


1-165 


15-38 


20- 


-41 


FSTDL 


i-S9 








FSTIOL 


1-62 


1-79 






GAGMSG 


i-190 








GENTOP 


1-103 








GETKCH 


1-77 


12-S 


12- 


■11 


GRTl 


1-144 








GTRD50 


1-170 


7-40 


8- 


-28 


H. CSR 


1-76 








H. VEC 


1-76 








HANBSY 


1-175 


13-33 






HANCHN 


1-64 


8-57 


8- 


-57 




11-44 


12-97 


12- 


-97 


HANENT 


1-75 








HANPAR 


1-76 








HANSAV 


6~4# 


11-41 


12- 


-75 


HANS I Z 


1-75 








HAZEL 


1-77 








HAZLFL 


1-77 








HAZLNO 


1-77 








HI MAP 


1-142 








HIPRI 


1-176 


21-18 






HNBUF 


1-174 


11-27* 


11- 


-28 


HUPARG 


1-195 


13-26 






II**SZ 


1-46 








II*FLG 


1-46 








I If NAM 


1-46 








II*NPV 


1-48 








II*PRV 


1-48 








IIBUF 


1-46 








ILLCMD 


1-171 








ILSW2 


1-83 








IN* ACT 


1-157 








IN*CMD 


1-157 








IN*CNT 


1-157 








INDACT 


1-167 








INDERR 


1-106 








INDHD 


4-20 


5-6 1# 






INDSAV 


1-157 


14-84 






INDSTA 


1-106 








INFOMT 


1-171 








INGADR 


1-46 








INGEMT 


1-46 








INSTBL 


1-46 








INSTBN 


1-47 








INVDAT 


1-200 









12-19 20-21 



12-97 



13-11 



< 



4 
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INVDEV 


1-199 
























INVEC 


1-158 
























INVLDM 


1-195 
























INVLDN 


1-172 
























INVLDO 


8-57# 


12-26 






















INVOPT 


1-165 


1-171 


1-186 


8-58 


34-108 
















INVSOP 


8-55 


8-58# 






















INVTIM 


i-19i 
























lOABFL 


1-61 


5-181 


5-182 




















lOABHD 


4-22 


5-lS0# 






















ITRMTP 


1-159 
























jcxpes 


1-142 
























JCXSMS 


1-198 
























JPWDEV 


1-39 


20-25# 






















JPWFLG 


1-39 
20-97* 


20-19* 


20-37* 


20-52* 


20-57* 


20-62* 


20-67* 


20-72* 


20-77* 


20-82* 


20-87* 


20-92* 


JPWTYP 


1-39 


20-36* 






















JSTKND 


1-102 
























JSWLOC 


1-67 
























K52 


1-73 
























KBMSQ 


1-180 
























KBTX 


1-184 
























KCSIBF 


1-169 
























KCSIMS 


1-170 
























KDOCIN 


1-26 
























KED 


1-73 
























KILEMT 


1-192 
























KL3CLR 


1-87 
























KL4CLR 


1-127 
























KMNBAS 


1-154 


29-16 






















KMNCHN 


1-94 


12-96 


29-30 


29-35 


















KMNHI 


1-78 


29-17* 






















KMNNAM 


1-196 


29-6 






















KMNPGS 


1-79 


29-24* 






















KMNSTK 


1-79 


29-25* 






















KMNSTR 


1-79 


29-26* 






















KMNTOP 


1-79 


29-15* 






















KMONHD 


4-23 


5-31# 






















KMPRMT 


1-138 


15-10 






















L 


4-9 


4-9# 


4-10 


4-10# 


4-11 


4-1 1# 


4-12 


4-12# 


4-13 


4-13# 


4-14 


4-14# 




4-15 


4-15# 


4-16 


4-16# 


4-17 


4-17# 


4-18 


4-18# 


4-19 


4-1 9# 


4-20 


4-20# 




4-21 


4-21# 


4-22 


4-22# 


4-23 


4-23# 


4-24 


4-24# 


4-25 


4-25# 


4-26 


4-26# 




4-27 


4-27# 


4-28 


4-2S# 


4-29 


4-29# 


4-30 


4-30# 


4-31 


4-31# 


4-32 


4-32# 




4-33 


4-33# 


4-34 


4-34# 


4-35 


4-35# 


4-36 


4-36# 


4-37 


4-37# 


4-38 


4-3S# 




4-39 


4-39# 


4-40 


4-40# 


4-41 


4-4 1# 


4-42 


4-42# 


4-43 


4-43# 


4-44 


4-44# 




4-45 


4-454* 


4-46 


4-46# 


4-47 


4-47# 


4-48 


4-4S# 


4-49 


4-49# 


4-50 


4-50# 




4-51 


4-5 i# 


4-52 


4-52# 


4-53 


4-53# 


4-54 


4-54# 


4-55 


4-55# 


4-56 


4-56# 




4-57 


4-57# 


4-58 


4-5S# 


4-59 


4-59# 


4-60 


4-60# 


4-61 


4-6 1# 


4-62 


4-62# 




4-63 


4-63# 


5-5 


5-5# 


5-6 


5-6# 


5-7 


5-7# 


5-8 


5~8# 


5-14 


5-i4# 




5-15 


5-15# 


5-16 


5-16# 


5-17 


5-1 7# 


5-18 


5-18# 


5-19 


5-19# 


5-25 


5-25# 




5-26 


5-26# 


5-32 


5-32# 


5-33 


5-33# 


5-34 


5-34# 


5-35 


5-35# 


5-36 


5-36# 




5-37 


5-37# 


5-38 


5~38# 


5-39 


5-39# 


5-45 


5-45# 


5-46 


5-46# 


5-47 


5-47# 




5-53 


5-53# 


5-54 


5-54# 


5-55 


5-55# 


5-56 


5-56# 


5-62 


5-62# 


5-63 


5-63# 




5-69 


5-69# 


5-70 


5-70# 


5-71 


5-71# 


5-72 


5-72# 


5-73 


5-73# 


5-79 


5-79# 




5-80 


5-80# 


5-81 


5-8 1# 


5-82 


5-82# 


5-83 


5-83# 


5-84 


5-84# 


5-85 


5-85# 




5-86 


5-86# 


5-87 


5-B7# 


5-88 


5~88# 


5-89 


5-89# 


5-90 


5-90# 


5-91 


5-91 # 
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LA120 

LA12FL 

LA12N0 

LA36 

LA36FL 

LA36N0 

LACTIV 

LAPS I Z 

LANGHD 

LBSPRI 

LCBIT 

LCDTYP 

LCLTXT 

LCLUNT 

LCOL 

LCONTM 

LCPUHI 

LCPULO 

LD*RON 

LDBASE 

LDCLEN 

LDDEVX 

LDDMT 

LDFLAG 

LDMNT 

LDNAM 

LDNAME 

LDOPHD 

LDPDEV 

LDSIZE 

LF 

LF*IN 

LF*OPN 

LF*OUT 

LF*WRT 

LFWLIli 

LICTXT 

LINBUF 

LINCNT 

L INCUR 

LINFRE 



5-92 
5-98 
5-114 
5-120 
5-131 
5-137 
5-148 
5-154 
5-160 
5-181 
5-192 
5-198 
5-204 
5-215 
5-231 
1-147 
•148 
■148 
•147 
•126 
1-126 

-eo 

L-83 
4-24 
'160 
-147 
-66 
.-57 
-62 
-82 
i-91 
[-91 
-91 
[-121 
[-122 
-71 
-124 
30-40 
-122 
■70 
-169 
.-122 
[-177 
•122 
•122 
2-4# 
-161 
-162 
-161 
-162 
-S3 
-144 
-78 
-80 
-S3 
-191 



5- 


-92tt 


5- 


-93 


5- 


-98# 


5- 


-99 


5- 


-114# 


5- 


-115 


5- 


-120# 


5- 


-121 


5- 


-131# 


5- 


-132 


5- 


-137# 


5- 


-138 


5- 


-148# 


5- 


-149 


5- 


-154# 


5- 


-155 


5- 


-160# 


5- 


-161 


5- 


-1S1# 


5- 


-182 


5- 


-192# 


5- 


-193 


5- 


-i98# 


5- 


-199 


5- 


-204# 


5- 


-205 


5- 


-21 5# 


5- 


-216 


5- 


-231 # 


5- 


-237 



5-166# 



1-133 



30-30 
25-59 
30-25 
25-51 
32-7# 
30-30* 



32-2 !*• 
5-6S# 
25-58 



24-51 
24-21 
24-50 
24-40 



30-35 
30-41 

30-35# 



33-15 
30-14 
32-19* 



24-56 
25-68 

24-57 
24-45 



5-93# 


5- 


-94 


5-99# 


5- 


-105 


5-1 15# 


5- 


-116 


5-121# 


5- 


-122 


5-132# 


5- 


-133 


5-138# 


5- 


-139 


5-149# 


5- 


-150 


5-1 55# 


5- 


-156 


5-161# 


5- 


-167 


5-182# 


5- 


-188 


5-193# 


5- 


-194 


5-199# 


5- 


-200 


5-205# 


5- 


-206 


5-2 16# 


5- 


-217 


5-237# 


5- 


-238 



24-62 

24-62 
25-68 



25-68 
25-68 



5- 


-94# 


5- 


-95 


5- 


-105# 


5- 


-106 


5- 


-116# 


5- 


-117 


5- 


-122# 


5- 


-123 


5- 


-133# 


5- 


-134 


5- 


-139# 


5- 


-140 


5- 


-150# 


5- 


-151 


5- 


-i56# 


5- 


-157 


5- 


-167# 


5- 


-168 


5- 


-18S# 


5- 


-189 


5- 


-194# 


5- 


•195 


5- 


-200# 


5- 


•201 


5- 


-206# 


5~ 


-212 


5- 


-217# 


5- 


-218 


5- 


-238# 







5-95# 

5-106# 

5-1 17# 

5-123# 

5-134# 

5-140# 

5-151# 

5-157# 

5-168# 

5-lS9# 

5-195# 

5-20 1# 

5-2 12# 

5-2 18# 



5-96 
5-112 
5-118 
5-129 
5-135 
5-141 
5-152 
5-158 
■174 
•190 
■196 

5-213 
5-219 



5- 
5- 
5- 



5- 


-96# 


5-97 


5- 


-112# 


5-113 


5- 


-iie# 


5-119 


5- 


-129# 


5-130 


5- 


-135# 


5-136 


5- 


-141# 


5-142 


5- 


-152# 


5-153 


5- 


-15S# 


5-159 


5- 


-174# 


5-175 


5- 


-190# 


5-191 


5- 


-196# 


5-197 


5- 


-202# 


5-203 


5- 


-213# 


5-214 


5- 


-219# 


5-225 



5-97 # 

5-1 13# 

5-1 19# 

5-130# 

5-136# 

5-142# 

5-1 53# 

5-1 59# 

5-175# 

5-191# 

5-197# 

5-^203# 

5-2 14# 

5-225# 



i 
f 
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I 

( 
i 

I 



I 
€ 
€ 

C 

























TSKSTl - 


— Keyboard SET Command MACRO 


V05. 05 


Thursday 


19-Jan-89 


14: 57 Page 


S~ll 


Cross reference 


table <CREF 


V05. 05) 












1 i 


LINIR 
LINNXT 


1-65 
1-78 


















LINPNT 


1-eo 
















LINRTS 


1-65 


















LITIME 


1-105 


















LJSW 


1-102 
















LMXLN 


1-158 
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1-161 
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LSTPRM i-131 

LSTSL 1-140 

LSTSPL 1-76 

LSUCF 1-86 

LSW 1-61 

LSWli 1-32 20-103* 20-109* 

LSW2 1-104 

LSW2S 1-109 

LSW3 1-109 17-6# 

LSW4 1-127 

' LSW5 1-87 5-25 5-26 5-32 5-33 5-45 5-46 14-43# 14-40* i4-49« 14-55* 14-56* 

I 14-86* 14-96* 

, * LSW6 1-155 5-167 5-168 5-174 5-175 10-48* 
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14-73* 14-74* 14-79* 28-45* 34-31* 34-32 34-41* 34-47* 34-53* 34-68* 34-74* 34-80* 
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LSW8 1-123 5-188 5-189 5-190 5-191 5-192 5-193 5-194 5-195 5-196 5-197 5-198 
5-199 5-200 5-201 5-202 5-203 5-204 5-205 5-206 

1 LSW9 1-85 5-38 5-39 10-38* 10-40* 17-7* 26-21 

LTRMTP 1-148 18-44 34-27 

LTSCMD 1-117 

t LUNAME 1-90 

MAXALC 1-63 

MAXASN 1-106 

MAXAVL 1-174 9-28 10-16 

MAXMEM 1-67 

MAXMTX 1-186 

MAXPRI 1-67 1-160 21-6 22-6 22-12 

MAXSEC 1-95 

MAXWEM 18-87 18-100# 

MDT 1-77 

MHNSIZ 1-96 

MHNSMS 1-97 

MINTIM 1-95 

MISSEQ 1-175 14-39 28-55 

MNBASE 1-185 

MNBPC 1-184 

MNFLOS 1-184 

MNTARG 1-195 

MNTDEV 1-170 33-23* 

MNTFUL 1-172 

MNTOP 1-185 

MNTTXT 1-197 

MONARl 1-185 

M0NAR2 1-185 

MONHD 1-185 

MONVEC 1-160 14-87 14-90 14-97 14-100 23-9 

MSGBUF 1-190 

MSGEND 1-190 

MTOPHD 1-171 

MUL32 1-200 

MXCSR 1-156 

MXDTR 1-156 

MXJADR 1-69 

MXJMEM 1-68 
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MXPRMT 


1-13S 


15-36 






MXVEC 


1-158 








NAMTOP 


1-144 
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4-9 


4-9 


4-10 




4-14 


4-15 


4-15 


4-16 




4-20 


4-21 


4-21 


4-22 




4-26 


4-27 


4-27 


4-28 




4-32 


4-33 


4-33 


4-34 




4-38 


4-39 


4-39 


4=40 




4-44 


4-45 


4-45 


4-46 




4-50 


4-51 


4-51 


4-52 




4-56 


4-57 


4-57 


4-58 




4-62 


4-63 


4-63 


5-4# 




5-13# 


5-14 


5-14 


5-15 




5-19 


5-24# 


5-25 


5-25 




5-34 


5-35 


5-35 


5-36 




5-45 


5-45 


5-46 


5-46 




5-55 


5-56 


5-56 


5-6 1# 




5-70 


5-71 


5-71 


5-72 




5-81 


5-81 


5-82 


5-82 




5-87 


5-B/ 


5-8B 


5-88 




5-93 


5-93 


5-94 


5-94 




5-99 


5-99 


5-104# 


5-105 




5-114 


5-114 


5-115 


5-115 




5-120 


5" 120 


5-121 


5-121 




5-130 


5-131 


5-131 


5-132 




5-136 


5-137 


5-137 


5-138 




5-142 


5-147# 


5-148 


5-148 




5-153 


5-153 


5-154 


5-154 




5-159 


5-159 


5-160 


5-160 




5-174 


5-174 


5-175 


5-175 




5-189 


5-189 


5-190 


5-190 




5-195 


5-195 


5-196 


5-196 




5-201 


5-201 


5-202 


5-202 




5-21 1# 


5-212 


5-212 


5-213 




5-217 


5-218 


5-218 


5-219 




5-237 


5-237 


5-238 


5-238 


NAT XT 


1-178 








NEDCHR 


1-65 








NEWJSW 


1-102 








NFRESB 


1-129 








NINTXT 


1-178 








NLINES 


1-115 








NOCCL 


1-177 


29-54 






NOCIN 


1-169 








NODAT 


1-183 








NOEQL 


14-29 


14-39# 






NOFIL 


1-181 


1-189 






NOFLAG 


1-171 


7-8* 


12-4» 


12-14* 


NOFRDL 


1-200 








NOIND 


1-175 


14-92 






NOKMON 


1-196 


29-43 






NOLDMT 


1-183 








NONEMS 


1-183 








NOOPTT 


1-189 








NOPMGN 


1-185 
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4-1 1 


4-11 
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4-13 
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4-18 
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4-19 
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4-22 
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4-24 


4-24 


4-25 


4-25 


4-28 


4-29 


4-29 


4-30 


4-30 


4-31 


4-31 


4-34 


4-35 


4-35 


4-36 


4-36 


4-37 


4-37 


4-40 


4-41 


4-41 


4-42 


4-42 


4-43 


4-43 


4-46 


4-47 


4-47 


4-48 


4-48 


4-49 


4-49 


4-52 


4-53 


4-53 


4-54 


4-54 


4-55 


4-55 


4-5S 


4-59 


4-59 


4-60 


4-60 


4-61 


4-61 


5-5 


5-5 


5-6 


5-6 


5-7 


5-7 


5-8 


5-15 


5-16 


5-16 


5-17 


5-17 


5-18 


5-18 


5-26 


5-26 


5-31# 


5-32 


5-32 


5-33 


5-33 


5-36 


5-37 


5-37 


5-38 


5-38 


5-39 


5-39 


5-47 


5-47 


5-52# 


5-53 


5-53 


5-54 


5-54 


5-62 


5-62 


5-63 


5-63 


5-68# 


5-69 


5-69 


5-72 


5-73 


5-73 


5-78# 


5-79 


5-79 


5-80 


5-83 


5-83 


5-84 


5-84 


5-85 


5-85 


5-86 


5-89 


5-89 


5-90 


5-90 


5-91 


5-91 


5-92 


5-95 


5-95 


5-96 


5-96 


5-97 


5-97 


5-98 


5-105 


5-106 


5-106 


5-ill# 


5-112 


5-112 


5-113 


5-116 


5-116 


5-117 


5-117 


5-118 


5-118 


5-119 


5-122 


5-122 


5-123 


5-123 


5-12S# 


5-129 


5-129 


5-132 


5-133 


5-133 


5-134 


5-134 


5-135 


5-135 


5-138 


5-139 


5-139 


5-140 


5-140 


5-141 


5-141 


5-149 


5-149 


5-150 


5-150 


5-151 


5-151 


5-152 


5-155 


5-155 


5-1 56 


5-156 


5-157 


5-157 


5-158 


5-161 


5-161 


5-1 66# 


5-167 


5-167 


5-168 


5-168 


5-180# 


5-181 


5-181 


5-182 


5-182 


5-i87# 


5-188 


5-191 


5-191 


5-192 


5-192 


5-193 


5-193 


5-194 


5-197 


5-197 


5-198 


5-198 


5-199 


5-199 


5-200 


5-203 


5-203 


5-204 


5-204 


5-205 


5-205 


5-206 


5-213 


5-214 


5-214 


5-215 


5-215 


5-216 


5-216 


5-219 


5-224# 


5-225 


5-225 


5-230# 


5-231 


5-231 
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NOPRG 


1-165 


1-169 












NOSTRT 


1-168 














NOTAVL 


1-184 














NOTON 


1-190 














NOT XT 


1-178 














NOUDC 


1-182 














NSPLDV 


1-121 














NSWPMS 


1-186 














NUCHN 


1-114 














NUMDCD 


1-138 


4-28 












NUMDEV 


1-151 


13-10 












NUMON 


1-83 














NXTOPT 


11-43 


12-4# 


12-109 










OCTFIX 


1-178 














OCTPRT 


1-198 














ODTBAS 


1-154 














OF**SZ 


1-153 














OF*DEV 


1-152 














OFfFIL 


1-152 














OF*FLG 


1-152 














OF*UNT 


1-152 














OFFEMT 


1-192 














OKFEND 


1-96 














DKFILE 


1-96 














OPRTXT 


1-57 














OPTLST 


1-43 














OT*RON 


1-153 














OTHRON 


1-194 














OTRMNT 


1-196 














OVRCOR 


1-168 














PO*DBG 


1-47 


10-35 


10-45 










PO*NAM 


1-45 














PO*OPR 


1-45 


11-42 












PO*SPV 


1-43 














PO*SYS 


1-34 


26-23 


27-24 










P2*CGR 


1-40 


18-9 












P2*TRM 


1-45 














PAfBEL 


1-36 


20-62 


20-67 










PA*BLD 


1-35 


5-156 


5-157 


5- 


-158 


5- 


-159 


PA*DSC 


1-35 


5-157 


5-158 










PA*DTS 


1-34 


20-82 


20-87 










PA*DWD 


1-35 


5-1S5 


5-156 


5- 


•157 


5- 
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PA*FLG 


1-34 


20-19 


20-72 


20- 


-77 






PA*GRC 


1-35 


5-155 


5-156 


5- 


-157 


5- 


-158 


PAfHQL 


1-35 


5-155 


5-156 


5- 


-157 


5- 


-158 


PA«LET 


1-35 


20-52 


20-57 










PA*NWD 


1-36 


20-92 


20-97 










PA*UKC 


1-35 


5-155 


5-156 


5- 


-157 


5- 


-158 


PA*ULN 


1-35 


5-155 


5-156 


5- 


-157 


5- 


-158 


PASLIN 


1-134 














PAUMSG 


1-164 














PBFEND 


1-llS 














PEKADR 


1-38 














PEKEHT 


1-38 














PEKSIZ 


1-38 














PF*IOW 


1-155 
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5-161 
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PF*SYS 


1-155 






PFCO 


1-43 






PFSO 


1-43 






PHYMEM 


1-101 






PMBUSY 


1-185 






PNAME 


1-151 


1- 


-174 


POPCF 


1-175 






PRGALL 


1-27 






PRGSIZ 


1-78 






PRGTOP 


1-78 






PRIEMT 


6-3S# 


21- 


-23 


FRIVAO 


1-44 






PRIVCO 


1-47 


10- 


-35 


PRIVC2 


1-45 


18- 


-9 


PRIVSO 


1-43 






PRMBUF 


1-131 






PRMEND 


1-131 






PRMPNT 


1-130 






PROSLT 


1-52 






PRSBEL 


5-129 


20- 


-62# 


PRSDEV 


5-131 


20- 


-18# 


PRSDRF 


5-132 


20- 


-57# 


PRSFLG 


5-133 


20- 


-72# 


PRSHD 


5-12e# 


20- 


-9 


PRSKEY 


5-135 


20- 


-102# 


PRSLET 


5-137 


20- 


-52# 


PRSNBL 


5-130 


20- 


-67# 


PRSNFL 


5-134 


20- 


-77# 


PRSNKY 


5-136 


20- 


-108# 


PRSNST 


5-139 


20- 


-87# 


PRSNWD 


5-142 


20- 


-97# 


PRSSTM 


5-138 


20- 


-82# 


PRSTYP 


5-140 


20- 


-31# 


PRSWID 


5-141 


20- 


-92# 


PRTBUF 


1-183 






PRTDAT 


1-199 






PRTDC2 


1-180 






PRTDC3 


1-180 






PRTDEC 


1-174 


9- 


-29 


PRTFIX 


1-177 






PRTFNM 


1-183 






PRTLN 


1-179 






PRTPCT 


1-193 






PRTR50 


1-199 






PRTSPC 


1-177 






PRTTIM 


1-199 






PRTTMD 


1-182 






PRTTMV 


1-181 






PRTTOD 


1-199 






PRTTTP 


1-178 






PRTUNM 


1-179 






PRTWRN 


1-203 


13- 


-16 


PRVCLR 


14-14# 






PRVLST 


1-47 






PRVOPT 


1-43 






PRVSET 


14-6# 
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PUSHCF 
PVNPW 


1-166 
1-43 








PVON 


1-87 








PWTHD 

QHDMSl 

QHDMS2 


5-147# 

1-59 

1-59 


20-33 




1 * 

1 


QUME 

QUMEFL 

QUMENO 


1-147 
1-149 
1-149 








RfCHN 


1-41 


24-27 


24-31 




R$XCHN 


1-41 


24-31 




1 


R50BUF 


1-170 


7-39^^ 


7-41 


) ' 


R50C10 
R50CL0 


20-25 
6-6# 
6-5# 






t % 


R50C0M 
R50DIR 


1-110 
1-166 


26-33 






R50DK 


1-199 








R50DSK 
R50DUP 
R50IND 


1-172 
1-167 
1-166 








R50K52 
R50KED 
R^OKEX 


1-167 
1-167 
1-16/ 






1 < 


R50KMN 


1-37 






1 


R50LD 


1-172 


7-52 


30-6 


1 


R SOLDO 


1-170 


30-9 


33-22 


1 t 


R50LD7 


1-172 


7-54 




1 


R50L0G 


1-176 


25-14 
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R50MON 


1-200 








R50N0 
R50PIP 


1-173 
1-167 


8-29 




1 


R50SAV 


1-166 


28-19 




1 

t 


R50SY 

R50TSX 

R50TT 


1-166 
1-167 
1-195 








R50UCL 
R50VIR 
RC«*SZ 


1-167 
1-168 
1-51 








RC*AEP 


1-50 








RC*AGE 
RC«CNT 


1-50 
1-49 








RC*EXC 
RC»FLO 
RC*GBL 


1-50 
1-50 
1-50 








RC$LCG 
RC*LEN 
RC*NAM 


1-52 
1-51 
1-50 








RC*OWN 
RC*PVT 


1-49 

1-51 






1 . 


RC*USE 


1-50 








RCBBAS 
RCBEND 


1-51 
1-51 








RCLHD 


5-104# 


34-105 




RCLREV 


1-34 


34-109* 






RDB 


1-139 
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RDBEND 


1-139 






RDCMD 


1-164 


4- 


-17 




14-37 


14- 


-44 




17-8 


18- 


-82 




29-53 


30- 


-26 


RDERM 


1-168 






REMTXT 


1-57 






RESDEV 


1-153 






RJEMT 


1-37 






RNMS 


1-179 






RONTXT 


1-184 






RSR 


1-156 






RSTIND 


5-33 


14- 


-96# 


RSTPRV 


1-44 






RT**SZ 


1-139 






RT$NAM 


1-139 






RUNDEV 


1-107 






RUNEMT 


1-168 






RUNHD 


1-164 






RUNMS 


1-200 






S*HICP 


1-92 






S*INWT 


1-93 






S*IOFN 


1-88 






S*IOWT 


1-145 






S«LOW 


1-90 






S$MSWT 


1-94 






S*OTFN 


1-8S 






S*OTLO 


1-88 






S*OTWT 


1-93 






S*QMIO 


1-86 






S*QUSR 


1-145 






S«RT 


1-90 






S*SFWT 


1-93 


1- 


-145 


S*SPCB 


1-146 






S*SPDB 


1-146 






S*SPND 


1-87 






S$TMWT 


1-93 






S*TTFN 


1-88 






S*TTSC 


1-89 






S*TWFN 


1-88 






S9600 


1-93 






SBPFIL 


5-231 


27- 


-17# 


SBPHD 


5-230# 


27- 


-11 


SBPSUF 


1-36 


27- 


-38 


SC*ERR 


1-33 


5- 


-15 


SC*FTL 


1-33 


5- 


-n 


SC*NON 


1-33 


5- 


-19 


SC«SEV 


1-33 


5- 


■16 


SC*SUC 


1-33 






SC*UNC 


1-33 


5- 


■18 


SC*WRN 


1-33 


5- 


-14 


SCHAIN 


1-124 






SCNOPS 


1-37 


18- 


-22 


SD*BAK 


1-127 






SD*DEL 


1-119 






SD*FLK 


1-120 







4-58 9-40 10-28 10-39 10-41 10-49 13-34 14-10 14-18 14-24 

14-50 14-57 14-63 14-69 14-75 14-80 14-91 14-101 15-50 16-30 

20-14 21-26 22-26 23-10 23-19 23-26 24-11 26-53 27-13 28-46 

30-31 30-36 30-42 31-25 34-17 34-110 



20-10 24-10 27-12 34-13 



i 
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SD«HLD 

SDfSNG 1-129 

SD*WFM 1-120 

SDBLK 1-121 * 

SDBU 1-127 

SDBUFl 1-121 

SDCB 1-135 < 

SDCBND 1-135 

SDCBSZ 1-140 

SDDVU 1-139 * 

SDFHD 1-132 

SDFLAG 1-120 

SDFORM 1-120 * 

SDNAME 1-140 

SDSFCB 1-119 

SDSKIP 1-127 * 

SEARCH 1-164 7-27 8-43 20-34 26-11 30-15 34-106 

SEEDIT 5-5 14-43# 

SEK52 5-7 14-54# « 

SEKED 5-6 14-55# 

SERFLG 1-61 32-12ii- 32-i5t 

SETBIT 5-25 5-38 5-45 5-62 5-167 5-180 5-190 5-192 5-194 5-196 5-198 5-200 • 

5-202 5-204 14--7# 

SETBYT 14-28# 

SETCKP 11-31 11-41# ' 

SETCL 1-32 7-70 

SETCNW 5-47 29-49# 

SETDEV 7-76 11 -6# < 

SETECO 5-8 14~4S# 

SETEMT 5-174 10-45# 

SETESU 4-15 17-6# < 

SETHD 1-173 4-8# 7-26 

SETHST 1-32 4-19 

SETIND 5-32 14-S4# 1 

SETIVD 11-15 11-17 11-29 ll-35# 

SETIVS 12-45 12-64 12-99 13-38# 

SETKNW 5-37 29-5# 1 

SETLD 7-58 30- 5# 

SETLOF 4-26 26-6# 

SETLOG 4-25 24-5# < 

SETMPR 4-27 22-5# 

SETNDC 4-28 9-44# 

SETNSH 4-46 23-24# • 

3ET0PT 12-23# 

SETPRC 1-34 4-32 

SETPRI 4-34 21-5# t 

SETPRS 4-35 4-36 4-63 20-5# 

SETPRT 4-33 15-5# 

SETPRV 4-22 S-14# * 

SETREC 4-44 34-105# 

SETSBP 4-49 27-7# 

SETSEV 5-14 5-15 5-16 5-17 5-18 5-19 23 -5# < 

SETSHT 4-45 23-16# 

SETSL 4-48 34-8# 

SETSUB 4-10 4-12 4-13 4-14 4-16 4-20 4-23 4-24 4-47 4-57 4-61 8-15# < 

SETSVB 4-31 9-9# 

f 
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SETSVC 


9-10 


9-12# 








SETSVL 


4-11 


4-18 


4-21 


4-29 






4-54 


4-55 


4-56 


9-ll# 




SETSW 


9-22# 


9-50 








SETSYP 


4-50 


4-51 


16-5# 






SETTTY 


1-34 


4-52 


4-53 




SETUKM 


5-35 


5-36 


2S~7# 






SETUP 


12-105 


13-5# 








SETWIN 


4-62 


lS-5# 






SETWRD 


1-42 










SF*1ST 


1-130 










SF*BSy 


1-129 








SF*HLD 


1-130 










SFFILE 


1-146 










SFFLAG 


1-132 








SFFORM 


1-129 










SFID 


1-76 










SFNMBL 


1-129 








SFQLNK 


1-132 










SFUSER 


1-146 










SH**SZ 


1-74 


12-31 






SH*FLe 


1-74 


12-43 


12-48 


12-56 




SH*NAM 


1-74 


12-27 


12-29 






SH«RTN 


1-74 


12-36 






SH*VAL 


1-74 


12-24 


12-04 






SHMTHl 


1-182 










SHMTH2 


1-182 








SHOHD 


1-197 










SHRRCB 


1-51 










SHRRCN 


1-51 








SHTMSG 


1-192 










SIGHD 


4-47 


5-ie7# 








SIZEMT 


1-195 








SIZVAL 


1-169 










SJEMT 


1-37 










SKPSPC 


1-26 


7-6 


8-20 


8-35 




26-29 


28-11 








SLDCLN 


5-69 


30~25# 








SLDEMP 


5-70 


31-5# 






SLDFRE 


5-71 


30-40# 








SLDNWR 


5-73 


30-35# 








SLDWRT 


5-72 


30-30# 






SLEHD 


5-78# 


34-12 








SLKDOF 


1-55 


34-40 


34-88 






SLKDON 


1-55 


34-34 


34-81 




SLMXLN 


1-203 


34-60 








SLOKED 


5-80 


5-81 


5-82 


34-80# 




SLOLET 


5-86 


5-92 


34-68# 






SLONLT 


5-87 


5-93 


34-74# 






SLONOP 


5-79 


5-85 


5-94 


5-90 




SLONTT 


5-96 


34-53# 








SLOOFF 


5-88 


34-40# 








SLOON 


5-89 


5-90 


34-23# 






SLORT 


5-83 


5-91 


34-S7# 






SLOTTY 


5-95 


34-47# 








SLOUNI 


5-84 


34-94 # 
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( SLOWID 5-97 34-59« 

SMRSIZ 1-143 

SO*NO 1-75 12-43 

' SO*NVL 1-75 12-48 

SO*OCT 1-75 12-56 

SOPALC 1-66 

SOP DAT 1-66 

SOPTIM 1-66 

SPACE 1 1-49 

SPACE2 1-179 

SPACE3 1-179 

SPACES 1-lSO 

SPACE6 1-183 

SPACTV 1-187 1-188 

SPCF 1-189 

' SPDTXl 1-178 



( 



f 



SPFLK 1-189 

SPFUL 1-189 

C SPGEMT 1-189 

SPLACT 1-192 

SPLCHN 1-92 

t SPLHD 1-186 

SPLHLA 1-177 25-63 

SPLPND 1-194 

< SPSNG 1-187 1-189 
SPUBUF 1-69 

SPWFM 1-187 1-18B 

I t SRTSIZ 1-143 

SRTSMS 1-194 

, SRTTXT 1-197 

< SSRMAP 1-197 

. STCDOF 5-238 10-40# 

' STCDON 5-237 10-32# 

< STCHNB 4-9 10-4# 

' STLGAL 5-212 24-62# 

\ STLGCL 5-214 24-15# 

« STLGCN 1-27 5-213 24-204t 

STLGFL 5-215 25-4# 

STLGHD 1-176 5-21 1# 24-9 

STLGIN 5-216 24-50# 

STLGNW 5-219 24-45# 

STLGOT 5-217 24-56# 

STLGWR 5-218 24~40# 

STLOFL 5-225 26-2i# 

STLOHD 5-224# 26-10 

STNOVR 1-34 4-60 

STPASK 1-194 

i STPFLG 1-92 23-17*- 23-25* 

* STRWRD 5-181 5-182 
STUCLF 5-53 14-61 # 

I STUCLL 5-55 14-73# 

* STUCLM 5-54 l4-67# 
STUCLN 5-56 14-79# 
STVRFY 1-34 4-59 

* SUBARO 1-184 
SUBTXT 1-197 

( 
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i 
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sues 1-144 

SUMl 1-193 

SUM2 1-193 

SUM3 1-193 

SUM4 1-193 

SUM5 1-194 

SUM6 1-194 

SUM7 1-194 

SUMS 1-144 

SUPCOD 1-144 

SWPTX 1-180 

3XBPNT 1-69 

SYASHD 1-59 

SYHDl 1-179 

SYHD2 1-179 

SYINDX 1-151 

SYNAME 1-152 28-31 

SYPSWD 1-39 16-24 

SYSAV 1-164 

SYSDAT 1-141 

SYTIMH 1-141 

SYTIML 1-141 

SYUNIT 1-151 

TAB 2-8# 

TALEMT 1-114 

TBLOVF 1-173 

TCI 32 6-2 1# 18-60 

TC80 6-22# 18-66 

TCNORM 6-20# 18-78 

TCREV 6-19# 18-72 

TECD 1-73 

TKISEC 1-143 

TKIVAL 1-141 

TM*AUT 1-57 

TM*CDS 1-56 

TM*CEN 1-56 

TM$CLO 1-58 

TM*CL1 1-58 

TM*CL2 1-58 

TM*CL3 1-58 

TM*CL4 1-58 

TM*CL5 1-58 

TM*CL6 1-58 

TM*CNG 1-56 

TM*GBL 1-49 

TM*HPE 1-56 

TM*HPR 1-55 

TM*IN1 1-38 

TM«IN2 1-38 

TM*LCL 1-49 

TM*LPR 1-55 

TM*MRS 1-32 13-24 

TM*NAD 1-60 

TM*NNR 1-38 

TM*NSD 1-60 

TM*PR1 1-55 



I 
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TM*PR2 


1-55 






TM*PVA 


1-44 






TM*PVC 


1-44 






TM*RD1 


1-49 






TM*RD2 


1-49 






TM*SDN 


1-60 






TM*XBK 


1-37 






TMIDLH 


1-71 






TMIOH 


1-71 






TMIOWH 


1-70 






TMSWPH 


1-71 






TMSWTH 


1-71 






TMTOTH 


1-70 


1- 


-193 


TMTOTL 


1-70 


1- 


-193 


TMUSRH 


1-70 






TOTMMS 


1-197 






TOTON 


1-92 






TOT XT 


1-176 


21- 


-n 


TRGRET 


1-144 






TRMHDl 


1-56 






TRMHD2 


1-56 






TRMSTR 


1-166 






TSKSTl 


i-5# 


1- 


-26 


ibK 


l~lZ>ti 






TSXLIM 


1-144 






TSXSIT 


1-144 






TSXSMS 


1-198 






TXTCL 


1-91 






UCfMDC 


1-163 






UC^NDC 


1-163 






UCHAN 


1-112 






UCIDEF 


1-64 


28- 


-30 


UCISPC 


1-96 


28- 


-36 


UCLBLK 


1-162 






UCLCMD 


1-26 






UCLDAT 


1-162 






UCLHD 


4-57 


5- 


-52# 


UCLNAM 


1-117 






UERSEV 


1-134 






UFDRM 


1-104 






UFPTRP 


1-119 






UHIMEM 


1-107 






UKMNAM 


1-85 






UMSSMS 


1-197 






UMSYTP 


1-89 






UPTMMS 


1-192 






USPLCH 


1-92 






USRMMS 


1-19S 






USRSTK 


1-68 






USTART 


1-103 






UTRPAD 


1-67 






VCORTM 


1-13S 


4- 


-11 


VCSHNB 


1-95 


10- 


-22* 


VDBFLG 


1-82 


10- 


-32 


VHIPCT 


1-136 


4- 


-18 


VIMAOE 


1-102 







28-4J 
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f 


VINTIO 


1-128 


4-2 J. 








VLDSYS 


1-86 


7-56 








VNUMDC 


1-138 


9_49 








VOFFTM 


1-205 


4-29 








VONTM 


1-205 


4-30 






f 


VPRIDF 


1-42 


22-15 






VQUANO 


1-135 


1-136 


4-37 






VQUANl 


1-136 


4-38 






, ( 


VQUAN2 


1-136 


4-42 






VQUAN3 


1-135 


1-136 


4-43 






VQUNIA 


1-136 


4-39 








VQUNIB 


1-128 


4-40 






vQUNlC 


1-128 


4-41 








VSLEDT 


1-203 


34-23 








VTIOO 


1-147 


18-44 


34-27 




VTIOFL 


1-149 










VTIONO 


1-149 








\ 


VT200 


1-146 


18-44 


34-27 




VT2007 


1-146 










VT2008 


1-146 










VT20FL 


1-150 








VT20N0 


1-150 










VT52 


1-147 


18-44 


34-27 






VT52FL 


1-148 








VT52N0 


1-126 








1 


VTMIN 


1-205 


4-54 






1 


VTMLOC 


1-205 


4-55 






VTMOUT 


1-205 


4-56 








VUSPHN 


1-205 


4-31 








WEM 


18-91 


18-96# 


18-100 




WF132 


5-123 


6-14« 


18-38 


18-58 




WF80 


5-116 


6-15# 


18-64 






WFDEL 


5-114 


5-118 


6-ll# 


18-30 


WFNORM 


5-113 


5-117 


6-13# 


18-76 




WFREV 


5-115 


5-120 


6~12# 


18-70 




WILDFL 


1-72 








WILDHD 


4-61 


5-24# 








WINBIT 


5-113 


5-114 


5-115 


5-116 


1 


WINCOL 


5-112 


19-4# 






WINDEL 


6-55# 


18-32 






1 


WINFLG 


6-7# 


18-17* 


18-26 


19-56* 


1 


WINHD 


5-lll# 


18-21 






WINMAK 


6-43# 


18-15* 


18-16* 


18-40* 




WINMAF 


6-50# 


18-53 








WINNOS 


5-122 


19-50# 






WINSCR 


5-121 


19-23# 








WLDNAM 


2-12# 










XAREA 


1-165 


11-28 


11-30 


11-41 




YESTXT 
ZCLR 


23-9 
1-178 
1-156 


25-42 


28-42 


29-6 
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12-75 12-96 12-97 13-5 14-87 14-90 14-97 14-100 

29-11 29-30 29-35 29-50 29-52 * 
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. . . CMO 


25-28 




. . . CMl 


11-28 


11-30 




29-35 


29-50 


. . . CM2 


11-28 


11-28 




13-5 


13-5 




25-42 


28-42 




29-50 


29-52 


. . . CM3 


8-57 


11-35 


. . . CM5 


9-28 


9-30 




14-90 


14-97 




23-9 


25-28 




34-40 


34-62 


. . . CM6 


14-87 


14-90 


, , CM7 


11-30 


13-5 


. CLOSE 


l-20# 


13-6 


. CSIGE 


1~18# 




. CSISP 


1-16# 




. DATE 


1-19# 




. DSTAT 


l-22# 


25-28 


. ENTER 


1-21# 


25-42 


. EXIT 


1-21# 


29-39 


. FPROT 


l-22# 




. GTIM 


1~19# 




, GfLiN 


1-1V# 




. GVAL 


l-22# 


14-87 


. HERR 


l-22# 




. LDOKU 


l-20# 


11-28 


. PRINT 


l-20# 


9-28 




22-11 


22-14 


. PURGE 


1-17# 


8-57 


. PVAL 


l-22# 


14-90 


. READW 


1-17# 


11-30 


. REOPE 


1-18# 


12-75 


. SAVES 


1-1S# 


11-41 


. SERR 


l-22# 




. SPFUN 


1-19# 




. SRESE 


1-16# 




. TTOUT 


1-16# 




. TTYIN 


1-17# 




. TTYOU 


1-17# 




. WRITW 


1-21# 


13-5 


CMDDEF 


3-47# 


4-9 




4-20 


4-2.) 




4-32 


4-33 




4-44 


4-45 




4-56 


4-57 




5-14 


5-15 




5-36 


5-37 




5-63 


5-69 




5-85 


5-86 




5-97 


5-98 




5-119 


5-120 




5-136 


5-137 




5-153 


5-154 




5-175 


5-181 




5-197 


5-198 



14-97 



28- 


-42 


29-6 


9- 


-30 


10-16 


Si- 


-21 


34-34 


ll 


-35 


11-44 


14" 


-100 


23-9 


29- 


-11 




12- 


-96 


12-97 


29- 


-30 


29-52 



4-10 



4- 


-22 


4- 


-34 


4- 


■46 


4-58 


5- 


-16 


5- 


-38 


5- 


-70 


5- 


-87 


5- 


-99 


5- 


•121 


5- 


-138 


5- 


-155 


5- 


-182 


5- 


-199 



4-11 
4-23 
4— J3 
4-47 

4-59 

5-17 

5-39 

5-71 

5-88 

5-105 

5-122 

5-139 

5-156 

5-188 

5-200 
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11-41 


12-75 


12-96 


29-52 






11-30 


11-30 


11-30 


14-87 


14-90 


14-90 


28-42 


29-6 


29-6 


11-44 


12-74 


12-95 


10-16 


10-18 


11-28 


14-100 


18-60 


18-66 


25-42 


28-42 


29-6 


34-81 


34-88 




14-97 


14-100 


23-9 


29-11 






28-44 







29-50 
10-18 
34-40 
12-74 



29-35 



4-12 

4-24 

4-36 

4-48 

4-60 

5-18 

5-45 

5-72 

5-89 

5-106 

5-123 

5-140 

5-157 

5-189 

5-201 



-97 



11- 


-30 


14- 


-97 


29- 


-11 


13- 


-6 


11- 


-30 


18- 


-72 


29- 


-11 



18-60 
34-62 
12-95 



4-13 

4-25 

4-37 

4-49 

4-61 

5-19 

5-46 

5-73 

5-90 

5-112 

5-129 

5-141 

5-158 

5-190 

5-202 



13-5 



18-66 
34-81 
13-38 



4-14 
4-26 
4-38 
4-50 
4-62 
5-25 

5 47 

5-79 

5-91 

5-113 

5-130 

5-142 

5-159 

5-191 

5-203 



»5-4r 



18-72 
34-38 
29-34 



4-15 

4-27 

4-39 

4-51 

4-63 

5-26 

5-53 

5-80 

5-92 

5-114 

5-131 

5-148 

5-160 

5-192 

5-204 



>8-4x 



11-41 


12-75 


12-96 


14-100 


14-100 


23-9 


29-11 


29-11 


29-11 


13-38 


28-44 


29-34 


11-41 


12-75 


12-96 


18-78 


21-11 


21-14 


29-30 


29-35 


29-50 



18-78 



4-16 
4-28 
4—40 
4-52 
5-5 

5-54 

5-81 

5-93 

5-115 

5-132 

5-149 

5-161 

5-193 

5-205 



29-6 

12-97 

23-9 

29-30 



12-97 
21-21 
29-52 



11-11 



4-17 

4-29 

4-41 

4-53 

5-6 

5-33 

5-55 

5-82 

5-94 

5-116 

5-150 
5-167 
5-194 
5-206 



29-11 

13-5 

25-42 

29-35 



13-5 

22-11 

31-21 



?1-14 



4-18 

4-30 

4-42 

4-54 

5-7 

5-34 

5-56 

5-83 

5-95 

5-117 

5-134 

5-151 

5-168 

5-195 

5-212 



29-30 

13-5 

25-42 

29-50 



14-87 
22-14 
34-34 



21-21 



4-19 

4-31 

4-43 

4-55 

5-8 

5-35 

5-62 

5-84 

5-96 

5-118 

5-135 

5-152 

5-174 

5-196 

5-213 
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FABORT 



FERR 

FWARN 

TBLDEF 

TBLEND 



5-214 
3-15# 
14-92 
27-50 
3-4# 
3-23# 
3-35# 
5-111 
3-61# 
5-124 



5-215 
7-44 
16-19 
28-51 
15-38 
13-16 
4-8 
5-128 
4-64 
5-143 



5-216 
8-56 
18-11 
28-55 
20-41 
13-24 
5-4 
-147 
-9 
-162 



5- 

5- 
5- 



5-217 
8-58 
18-46 
28-59 
20-43 
34-25 
5-13 
5-166 
5-20 
5-169 
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